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Watching a cassette load Jim Butterfield, Toronto 

It may not be to useful, but it's very satisfying to watch a 
program coming in from cassette tape. Much of what comes in 
will look like gibberish, since the program contains things 
like pointers, flags and tokens. But it's interesting to see 
and here's how you can do it. 

Step 1: Load any Basic program on cassette 1. The program 
doesn't matter; the LOAD activity sets up certain internal 
things that will help us. 

Step 2: Set up the cassette with any Basic program ready to 
load. A short one would be good; that way you may catch the 
whole program on the screen. But any Basic program will do. 

Step 3: Set graphic mode with POKE 59468,14. This may help 
you spot a few recognizable pieces of your program. 

Step 4: Give SYS 62894. PET will ask you to press PLAr . Do 
so, and in twenty seconds or so, PET will report FOUND... and 
stop. 

Step 5: Clear the screen so you'll get a better view of the 
program as it comes in. Now move the cursor down to a few 
lines from the bottom of the screen. 

Step 6: Enter POKE 636,128 : POKE 638,132 : SYS 62403 

Step 7: Sit back and watch the program load to the screen. 
You won't be able to RUN it, of course, since it's in the 
wrong part of memory... but isn't it fascinating to watch? 


Commodore Systems. 3370 Pharmacy Avenue, Agincourt, Ont.(416)499-4292 



Decimal/Hex conversion: a few techniques 


Jim Butterfield 


If you stay clear of machine language, you'll never need to explore 
the mysteries of Hexadecimal numbering. If you do need to use 
this kind of numbering scheme, you'll often want to convert back 
and forth between decimal and hexadecimal. For example, a program 
contains a SYS(23U5)j and you want to use the Machine language Monitor 
to see what's in that part of memory. But the MLM wants the address 
in Hex ... how to convert? 

Most of these techniques can be readily done with a pocket calculator, 
or with a program. But when your calculator battery has gone dead, 
and your PET is already loaded with a different program that you don't 
want to disturb, it's handy to work it all out using immediate statements. 

Converting Decimal to Hexadecimal, 


favorite quick method is this (let's convert 23li5 as an example): 

X - 23W/U096 : FOR J=1 TO U : ? INT(X); : X=(X-INT(X) )*16 : NEXT J 

.. and out come the numbers 0 9 2 9, representing hex 0929. 

If you get numbers greater than 9, remember that 10 is written as A. 

11 as B, and so on up to 15 a3 F. 

Converting Hexadecimal to Decimal . 

This is a simple matter of multiplying the previous total by 16 and 
adding the new digit. To convert hex 0929 back to decimal we type: 

? (( 0*16 + 9)*16 + 2)*16 + 9 

ana we get our original value of 23ii5. If you don't like brackets, 
you could try the alternative: 

? 0*U096 + 9*256 + 2*16 + 9 

with the same result. In the example, the leading zero can be dropped 
from the calculation, of course. 

Gilding the lily . 

You really don't need to dress up immediate statements any more than 
is shown above. In programs, you'll probably want the value to 
print in a more classy manner - with the alphabetics already done. 

The easiest way is a variant of IF X>9 THEN PRINT CHR$(X+55)j 
but if you like to baffle your friends with obscure coding you can 
try either or both of these: 

X«23k6A096:FORJ=LTOb:Y=INT(X) :?CHRS(Y+55+7*(Y<10));:X«(X-Y)*l6:NEXTJ 
ZO: X$«"092A" :F0RJ“lT0lt:Y« ASC(M3D$(X$,J)): Z»Z*l6+Y-U8+7*(Y>57) :NEXTJ: ?Z 
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The LIST Chain 


One of the most often used commands to be executed directly from the 
keyboard is LIST; a most fundamental function as it allows us to observe 
the contents of our BASIC and proceed to implement the screen editor, a 
feature of the PET that most of us have taken for granted. This very 
powerful programming tool permits deletion, insertion and alteration of 
lines and characters. But as all this occurs, PET is busy doing some 
rather extensive internal housekeeping; checking available space, updating 
FRE(O), manipulating pointers in zero page and a number of other things. 

Of these tasks PET performs for itself, it also creates the LIST 
chain, a function of equal importance to PET and User. As a line of 
BASIC is completed, PET inserts three extra bytes of information which it 
uses to keep track of where the line ends and also where the next line 
begins. The best way to observe this is to load ’View’, one of the machine 
language programs which appeared in Transactor 10, Volume 1. Proceed as 
follows: 

1. LOAD and RUN View. This will set up the 
machine language for View in the second 
cassette buffer. 

2. SYS64824. This will clear out the 

BASIC memory space but will not affect the 
second cassette buffer. 

3. POKE 849,4 This will cause View 

to display page 4 of memory which is the 
first block or ’page’ of BASIC memory 
space. (BASIC begins at Hex 0400 or decimal 
1024 which is 4x256.) 

4. SYS82G The View program should 

now be operating and displaying page 4 at 
the top of the screen. The display should 
consist of mostly ’$’ signs representing 
empty space. 

Preceding the ’$’ signs you should see three ’@’ signs. The ’@’ sign 
represents a zero (try POKE 33400,0). The first ’@’ or zero in location 
1024 is a dummy end-of-line character. The next two zeroes represent the 
first pointer to the next line of BASIC but since they are zeroes this 
indicates to PET that nothing exists beyond this point. The three ’@’s 
are automatically placed at the end of the last line of BASIC. The first 
’@’ or zero is automatically placed at the end of every line of BASIC to 
indicate, of course, 1 end-of-line 1 . 

The three zeroes will not stay zeroes for long as we are about to 
enter into PET the following: 

10?"#" (without spaces) 

Upon hitting ’RETURN 1 you should notice the top line of the screen change. 
The first character will still be an ’@’ representing our dummy end-of-line. 
(As a rule, location 1024 will always be a zero unless POKEd by the User.) 
The next two characters should be, in order, a M’ and a ’D’ where J=10 and 
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D=4. These represent the low order and high order bytes (respectively) 
of the pointer to next line of BASIC. But just exactly what do they 
point at? Since these numbers are in hexadecimal, the high order byte is 
used as a multiplier of 256 and the low order byte is multiplied by 1 
and added to give us the decimal byte address. In this case the result 
will be: 

P = ( D x 256 ) + ( J x 1 ) = ( D x 256 ) + J 

OR P = ( 4 x 256 ) + ( lOx 1 ) = 1024 + 10 

= 1034 

If we start counting at 1024 (the ’HOME 1 position) across 10 character 

spaces to 1034, we find ourselves at the byte which our pointer points 

at (Figure 1.0). Since the only existing program consists of line 10, 
this byte will be a zero as is the following byte. 


1024 

1025 

1026 

1027 

1028 

1029 

1030 

1031 

1032 

1033 

1034 

1035 

1036 

1037 

<3 

J 

* 

1 

D 

J 

(3 

k'J 

M 


II 

.1 

(a 

| @ 

1 @ 

j 1 

1 $ ; 

[ 

$ 



Lo_ 

_Hi 

Lo_ 

_Hi 

PRINT 



End of 


—/ 

Empty.... 


Pointer= 
1034 

1 Dummy f end I_ 

of line 
character 


Line // 
( 10 ) 


Line 


End 

of 

BASIC 


Figure 1.0 


These indicate end-of-valid-BA SIC. Notice also the preceding byte which 
indicates end-of-line. 

Getting back to our pointer, immediately following should be another 
f J’ and an’@’ (Figure 1.0). These represent the low and high order bytes, 
respectively, of the line number. These are also in Hex such that: 

L.N. = ( @ x 256 ) + ( J x 1 ) = ( @ x 256 ) + J 

OR L.N, = ( 0 x 256 ) + (10 x 1 ) = 0 + 10 

= 10 

...which is of course the line number of the only existing BASIC so far. 

The next character on the top line is a reverse field ’Y* or the token 

for ’PRINT* which is 153. (see table following) The remaining characters 
are self explanatory. 

Mow let’s get a little deeper and enter the following extra code: 

400?” !” 

Before hitting ’RETURN’ watch closely the two last ’@’ characters (locations 
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1034 and 1035). Now hit 'RETURN' and they will change to an 'S' and a 'D' 
or a 19 and a 4 which equals 1043 (4 x 256 + 19). If we count across to 
1043 we find ourselves once again at the second last '@' character indi¬ 
cating end-of-BASIC (Figure 1.1). Recall that our first pointer in locations 
1025 and 1026 pointed at 1034. Therefore the first line pointer points at 
the next line pointer which in turn points at the next line pointer and so 
on to the end of your BASIC program. Sounds simple doesn't it? Well it is! 
This is the LIST Chain and PET employs these pointers to execute commands 


such as: 

i. 

LIST 


2. 

LIST-500 


3. 

LIST500-5000 


4. 

RUN 20 


5. 

GOTO500 


6. 

G0SUB1000 


When implementing these commands, either directly or under program control, 
PET immediately jumps to the pointer at 1025 and 1026 and stores it. PET then 
examines the following two bytes (1027 and 1028) which make up the line number 
and compares them against the given argument. If none is given the comparison 
is of course unnecessary. In the case of LIST 500-5000, PET will first 
compare the line number bytes with 500. If the test yields a "less than", 

PET recalls the pointer bytes and uses their values to jump to the next 
pointer. This new pointer is stored in place of the first and the above 
procedure is repeated until an "equal" or "greater than" test result is 
obtained. PET then, begins LISTing by 'PRINTing' out the converted-to-decimal 
line number followed by a space followed by the text belonging to that line 
number. Text continues 'PRINTing' until the zero end-of-line character is 
detected. PET halts here, recalls the pointer last stored and makes the 
jump to the next pointer. This pointer is again stored and the line # 
bytes are examined.. .but this time compared to the second argument; 5000. 

If a greater than result occurs the LIST procedure terminates. Otherwise 
PET continues to: 

a) display text while testing for 0 

b) recall pointer in storage 

c) jump to new pointer and store 

d) examine line # if so instructed 

e) continue or terminate 


1024 

1025 

1026 

1027 ; 

j 

' 1033 1034 

L 

1035 

1036 

- 1 

1042 
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1045 1046 

r @! 

i 

1 

J 

D 

l 

J ill 

r 

0 | S 

D 

B 

1 l\ 

i Li 
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0 

@ 

$ I $ i 


Lo 

HF" 

1 

iLo 

Hi 


* . i ^ x 


Point er= 
1034 — 


Pointer= 
1043 — 


End of 
BASIC 


Empty. 


Figure 1.1 




Some of you may now be asking.... 


"Why does PET do all that back-tracking to recall a 
pointer value which is simply the address of the 
byte immediately following the zero end-of-line 
character? Why doesn’t P ET just test for zero and 
have the line if bytes i- the following two locations. 

This would free up those extra two bytes used by PET 
every time it creares a line pointer.... " 

The answer is speed . The difference would not be noticed so much with LIST 
or even LIST with parameters. The real decrease in speed would occur upon 
execution of GOTO or GOSUB instructions. PET would have to test every byte 
for a zero (starting at 1024) and then, of course, look at the line #. 

This testing for zero would take some time, especially if the average number 
of bytes per line were up around 30 or 35. Coupled with the number of 
GOTOs and GOSUBs in your program, BASIC execution speed would be considerably 
slower. Using the present method, PET skips across the pointers like a frog 
across the lily pads (only it won’t eat up your bugs at the same time). 

Insertion and Deletion 


When we program a line of text that is to fall between two existing 
lines, PET must know where to put it. We won’t discuss how PET splits 
the existing code; that’s another subject. PET jumps along looking at 
line numbers until an "in-between" condition is satisfied. Existing text 
is moved up from the right point exactly far enough for the code to be 
inserted. The pointers (line pointers and pointers in zero page) are 
updated and control is returned to the keyboard. 

For deletion of lines, PET simply finds the line and "squeezes" it 
out. Pointers are updated ....operation complete. 

Try experimenting with the View program to watch how PET handles 
its editing. 

Assuming that View is still running, type in NEW but before hitting 
’RETURN’, record the second and third characters of page 4. They are reset 
by a ’NEW’ but notice how the rest of memory still exists. If these 
locations are POKEd back to what they were, the program can now be LISTed 
once again. However, zero page pointers were all reset by NEW also. 

Editing or assigning variables to values will cause a crash (and a rather 
interesting one at that) so do not try a RUN. About the only way to ’SAVE’ 
it is to use the UNLIST routine. 

What You Can Do 


Some interesting results can be obtained by manipulating these line 
pointers; particularly locations 1025 and 1026. If we POKE1025,0 we’ve 
essentially aimed the pointer at location 1024 ( 4 x 256 + 0). If a LIST 
is executed, PET will pick up the first pointer, display the text and jump 
to 1024. Since 1024 is a zero and is now followed by a zero, PET is fooled 
into thinking end-of-BASIC ....try it! 
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Similarly, if we POKE1025,1 we have aimed the first pointer at itself! 
Now try a LIST. By the same token you can point that first pointer (or any 
pointer for that matter) at any other pointer in BASIC; but only at pointers 
....anything else and PET will crash. By doing this manipulation of 
pointers you can have LIST-inhibit on any lines you wish without affecting 
RUN (so long as you do not use RUN with arguments that lie within the 
LIST-inhibited lines). Be careful though....mistakes can be hazardous! 

Now let’s have some fun with View. Type the following on a clear 
screen near the bottom (View, of course, will not clear): 

FOR T = 32 TO 135; P0KE849,T: FOR R = 1 TO 250: NEXT R,T 
Hit ’RETURN' and next month we'll discuss how PET stores variables. 
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Collected by Jim Russo 


% 


16/32 K PET Notes 


The Operating System of the 16/32K PET is about 90% the same as the 8K PET, 
but has been re-assembled so that almost everything is in a slightly different 
place in memory than it used to be. Most bugs have been fixed and some 
limitations removed. 

Any pure BASIC program (no PEEK, POKE, SYS, or WAIT) that works on an 8K 
PET should also work on a 16/32K PET. POKing and PEEKing screen memory 
(32768 to 33767) is still safe but POKing the operating system (below 1024 
decimal) or using an operating system PEEK value to make a decision could be 
hazardous. Other programs can be made to work properly if references to RAM 
and ROM locations are changed. Commodore 1 s 16/32K PET manual contains a 
memory map for pages 0. 1 and 2. A list of new ROM addresses follows. These 
two lists should contain the information needed in most cases. 

Some Hardware Differences: 


The character generator ROM has been revised so that when lower case mode 
is selected, upper and lower case are interclianged. That is, the 1 SHIFT’ 
key must be used to obtain an upper case character. Also, 8K programs 
using lower case tliat are run on a 16/32K PET will display all lower case 
as upper case and vice versa. 

- The signal which blanks the video on the 8K is not connected on the 16/32, 
so POKE 59409, 52 no longer works. The ROM routines still reference this 
address but the required hardware seems to have been omitted. 


Summary of Differences : 

- The bug in TI lias been fixed. Now every 623rd. interrupt doesn’t increment 
TI. Also, TI is allowed to count 1/60 sec. too far: 240000 precedes 000000. 

- Execution (of at least some code) is faster due to more efficient coding and 
better use of zero page. PRINT (to screen) is faster because extra code to 
maintain separate POS pointer has been eliminated. Also, screen snow and 
’scroll - up flash 1 has been eliminated thanks to dynamic screen RAMs. 

- Standard typewriter operation i.e., shift for upper case. 

- RND ( 0 ) returns a number derived from interval timers. 

- OPENing more than 10 files no longer crasnes system. 

- OPEN statement correctly sets "current tape buffer pointer". 
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Machine Language Monitor included in ROM. BRK vector is initialized to 
monitor. 'L* and 'S' (LOAD and SAVE from monitor) nave new syntax. 

NMI vector no longer tied to +5v. NMI is initialized to BASIC "Warm Start". 

Data file write error corrected. The Tape Output routines now wait 2/3 second 
after turning on motor before beginning to write tape leader. 8K PET waited 
13 ms. on drive 1, 57 ms. on 2. 

Cursor home, left, right, up, down are now tracked properly by the POS 
function. This causes apparent differences in the TAB function which 
subtracts POS from its argument to determine the number of spaces needed. 

SPC (0) corrected. 

When output is directed to an alternate device, the ASCII space code $20 is 
used for all BASIC supplied forward spacing. 8K used $1D. 

Screen blanking (POKE 59409,52) no longer available, however, the scroll 
routine still uses it as if it did. 

PEEK is no longer restricted. 

Array dimensions now as high as 32767 (used to be 256). 

The memory expansion port uses a different connector. 

Spaces no longer allowed in keywords (e.g. GOSUB cannot be coded as GO SUB). 

POKE and PEEK can now be used in the same line (i.e., POKE 8000, PEEK (9000) 
now works}. 

ST (the status word) if used, must be tested before input of file data. 

Most ROM routines and RAM addresses have changed. 



— 

8K 

16/32K 

INTFLP 

D278 

D26D 

FLPINT 

D0A7 

D09A 

CHRG0T 

00C2 

0070 

WARM START 

C38B 

C389 

FLOATING AC ! 

1 

00B0-00B6 

005E-0064 


BASIC input buffer is no longer in zero page so programs which used many 
free locations in this area must be re-written. 

The decoding of screen memory now uses All (address buss line 11). Addresses 
8800-8FFF (34816 to 36863 decimal) no longer address screen memory. 




Review: Basic for Home Computers John Wiley & Sons, Inc. 

by Bob Albrecht, LeRoy Finkel, and Jerald R. Brown. 

TM 

A good teaching book that deals with MICROSOFT Basic fundamentals. 
This is the type of Basic that PET has, and readers will find 
it a suitable introduction to PET programming. 

The book is a self-teaching guide, which means that on almost every 
paragraph you are asked to "fill in the blanks". The idea behind 
this type of programmed instruction is that you do more than read - 
you participate. This makes for a good teaching text; but the 
book becomes less useful for reference or quick scanning. 

The absolute beginner with a PET will encounter a few stumbling 
blocks at the start of the book. This is due to slight differences 
in the Basic being described. PET says READY instead of OK; 
it says 7SYNTAX ERROR instead of SN ERROR; it uses the Delete key 
instead of the back arrow to correct entry errors. All very minor 
problems, but they might shake the confidence of a neophyte. 

Once he gets over these initial rough spots, however, it's all 
clear sailing. By chapter three, the authors get into the meat 
of Basic programming, and the reader should have no further trouble. 

Each chapter is well organized. First, you're told what you may 
expect to learn in this chapter. Then the text material, broken into 
neatly numbered sections. Liberal use is made of illustrations, 
diagrams, and sample programs; and the programs are usually aimed 
towards real world examples, not just abstract mathematics. 

Finally, each chapter ends with a self-test, complete with answers, 
which allows you to review and make sure you've got it all right. 

The order of the chapters is well planned, proceeding from the more 
basic programming commands towards more advanced concepts. 

The authors don't suggest it, but by Chapter 5 the reader is 
equipped to skip ahead to subjects in which he may have a special 
interest. So if he's anxious to learn about string variables or 
about subroutines, he can leap ahead to chapter 9 or 10. It's nice 
to see a book that's so well organized that you can do this. 

The book has a light touch, especially in the illustrations and 
choice of programs. It helps to relieve the hard slugging that 
is often needed to learn a programming language. 

The book is a pretty good approach to learning Basic. It won't 
take the reader into advanced concepts, but it will give him a 
good start. 

Review by Jim Butterfield 
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BITS and PIECES 


Some interesting discoveries have been unearthed recentlv for 
the 8K and 16/32K versions of the PET. The single most important 
one, I feel, was uncovered by who else but Jim Butterfield. Burried 
deep in the keyboard interrupt routines is some code which does a 
test for the n < " key. To see this amazing little feature oDerate, 
insert a tape into cassette #1 and simply press f PLAY f (not a LOAD). 
Now hold down the 11 <" key and PET will tell you immediatly if there 
is something recorded on that tape. If there is, the " <" sign will 
repeat across the screen at the rate of about 5/sec. If not, no 
repetition will occur. Now we have a way to check tapes before 
recording something over material we may have wanted to keep and, 
more importantly, tapes can now be cued up to blank tape without 
having to load in the last program or file. Fantastic! The test 
works on all PETs but only for cassette #1. 

CRASH Your PET! 


The following is a list of rather interesting crashes for 8K 
PETs. They can cause absolutely no internal damage to the machine 
that power-down and up won f t fix. 

1. This one might make a good screen^alignment test: 

Type: 10 ABC 

Now: POKE 1025,0 

Type: 10 DEF 

2. Decimal location 537 ( 0219 hex ) is the low order 

byte of the hardware interrupt vector. Try the following 
and also experiment... 

POKE 537,49 
POKE 537,50 

3. On a clear screen in the 'HOME 1 position, type: 

2 RVS field f *'s then RVS Off; 

A shifted f L ? ; 

An f @ f sign; 

A RVS f @ f sign. 

. 3370 Pharmacy Avenue, Agincourt, Ont.(416)499-^292 
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The characters just typed should appear in the first 5 
positions of the top line. Hit 'RETURN' and, of course, 
get a ?SYNTAX ERROR. Now SYS 32768. ( SYS to the first 
location of screen memory ) Change the display by holding 
down various combinations of keys ( STOP, RETURN, etc. ) 
The result result can be altered by varying the number of 
RVS '*'s on the top line. 

4. On a clear screen in the 'HOME' position type a shifted 
closing bracket ( B ) and 'RETURN'. Now type: 

WAIT 32768,32,32 

Experiment with other characters. 


Merging PET programs: a final report Jim Butterfield, Toronto 

To wrap up the various activities surrounding merging or UNLIST, 
and bring them up to date with information on new ROM: 

I. To change a program into a data file on cassette tape: 

Mount blank tape on cassette 1. Type: 

OPEN 1,1,1 : CMD 1 : LIST 

Cassette tape will write. When writing is complete, the flashing 
cursor will return, but FET will not print READY - the word READY is 
in fact written on tape. Now close the CMD and tape file with: 

PRINT#! : CLOSE 1 

This "merge" tape may now be saved for any future occasion. 

Variations: 

—the file maybe named, e.g., OPEN 1,1,1,"TEST MERGE": ... etc. 

It's good practice to name files if you plan to keep them. 
—if desired you may copy only part of the program to tape, 

e.g., ... CMD 1 : LIST 500-700 ... Thig is a handy way 
to extract subroutines from a larger program. 


n. To merge a data file (in the above format) into program space: 

The procedure is slightly different on original ROM as conpared 
to the new ROM, which I 1 11 call upgrade ROM. 

The program with which you wish to merge must first be loaded into 
memory. The following procedure may be repeated many times, so 
that you may merge several program blocks together. 

Mount "merge" tape on cassette 1. Type: 




Original ROM: POKE 3,1 : OPEN 1 
Upgrade ROM: POKE lii,l: OPEN 1 

Tape will now be read. Eventually, the computer will report FOUND 
and the cursor will return. 

Now: clear the screen and press exactly three cursor downs. Type: 

Original ROM: POKE 6ll,l : POKE 525,1 : POKE 527,13 : ?"h M 
Upgrade ROM: POKE 175,1 : POKE 158,1 : POKE 623,13 : ?"h n 

('h' is the cursor home key - it will print as a reverse S). 

As soon as you press RETURN at the end of this line, the word 
READY will appear above the line, and tape will move. When the 

merge is complete, the computer will print either ?OUT OF DATA ERROR 
or 7SYNTAX ERROR below the line. This is normal and does not 
signify a real error. The job is now complete. 

Note the four new items: 

—a new POKE statement before OPEN 1; 

—three cursor downs before the final POKE; 

—only one final POKE line to be typed; 

—no need to close the file at end of merge. 

The new system is simpler, and also corrects a minor problem on 
the original P0KE611 merge. Few people spotted it, but the original 
procedure caused line 1 to disappear. 



‘Gentlemen, This Is a Structural 
Analysis of the Proposed Shopping 
Complex Made by Our Arch/200 
Stress Analyzer. Of Course, You May 
Want a Second Opinion.’ 

Courtesy Computerworld Newspaper 
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The cct. shown in Fig. 1 is a modification of an interface 
that was originally built in June '78 to output to a TTY from 
the PET Parallel User Port. The problem with the Parallel port 
was that software was required to be resident in memory in 
order to output data and LISTing of programs was not possible 
since the operating system has control during a LIST. Clearly 
the way to go was from the IEEE 488 Port. 

The modification to output from the IEEE Port was based on 
the cct. by Prentice Orwell ( Jul/Aug 78 Pet User Notes ). 

Some of the features of my original cct, such as UART vice 
shift register and clock frequency from PET vice interface 
oscillator, were retained. 

My cct. is as shown in Fig. 1 It uses a +5v and -12v 
( originally only a dual supply UART was immediately available) 
for both the UART and the 20mA current loop. The cct. could be 
further simplified to a single +5v supply as shown in Fig. 2 
by using a single supply UART such as the AVA - 1014A or 
equivalent. The 20mA loop could then be constructed using 
spare inverters on the 4049's. 

As stated above, hardware is reduced by omitting the 
interface oscillator. PET itself supplies the 1760 Hz ( 16 x 
baud rate ) UART clock frequency from CB2 on the parallel port 
( see Generating Square Waves With The PET by J.R. Kinnard - 
MAR/APR '78 PET User Notes ). 


Circuit Operation 


Initialize : POKE 59467,16 : POKE 59464,69 : POKE 

59466,51 

( outputs 1760 Hz from CB2 to UART, tape 
I/O disabled ) 

Operate : OPEN 4,4 : CMD 4 

( Printer primary output device - enter 
from keyboard to LIST or include in 
program to be RUN 

Return to Screen : PRINT# 4 ( from keyboard or include in 

program 

System Recover : POKE 59467,0 ( restores correct tape I/O ) 
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Additional I/O Interface 

Mr. K. Erler of Edson Alberta writes in with: 

...a schematic of an interfacing idea of mine. It simply 
interfaces a second VIA chip to the PET, thus tripling 
the user’s I/O capability. Most of it is direct inter¬ 
facing --all but the address lines which had to be decoded. 

The circuit uses only 4 three input f ANI) f gates and 
one buffer inverter. Once assembled, it connects directly 
on to the Memory Expansion Port - J4. 

After connecting it, operation is very simple. The 
circuit is designed to use the top 16 bytes of RAM 
expansion space and since most PETs have only 8K ( 32K 
at the most ) the very top of the memory would not be used. 

The addresses are as follows: 


32752 

- ORB 

32760 

- T2L-L 

T2C-L 

32753 

- ORA 

32761 

- T2C-H 


32754 

- DDRB 

32762 

- SR 


32755 

- DDRA 

32763 

- ACR 


32756 

- TlL-L TlC-L 

32764 

- PCR 


32757 

- T1C-H 

32765 

- IFR 


32758 

- TlL-L 

32766 

- IER 


32759 

- TlL-H 

32767 

- ORA ( 

no hand shake) 


The advantages are that you get not only PA lines, 
but also the PB lines and CBl & CA2 lines. 

The operation is as with the other VIA - PEEK and 
POKE, etc, only with the previously listed addresses. 


Outut Example 


To create a tone on CB2, 


POKE 32762,15 (SR) 

POKE 32760,155 (Timer 2) 

POKE 32763,16 (ACR) 

Great idea, Kevin! Thank you. The schematic follows... 
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The Microtromcs M65 Morse Flash TTY Inter fa 
can operate anywhere up to 100 wpro ( send and 
Lly compatible with 8, 16, and 32K PETs. 

Assembled form - 149.95 

Kit form - 109.95 

c more information contact: IRISCO Du QUEBEC 

537 Boul Charest 
Qubec City, Queb 


G1K 3J2 








I ^commodore 

The T ransactor 

PET tm is a registered trademark of Commodore Business Machines Inc. 


comments and bulletins 


concerning your 
COMMODORE PET tm 


Vol.2 

BULLETIN # 3 
July 31,'79 


PET V OP 1 yi J 10 -Z> t O P 3.** •=* 


Most: PET users have.* at one tirue or ariother.• checked 
FREOIO immediately at ter a LORD and a. a a l n at ter RUNniny arid 
t o u ri d t h e t w o d c* n t m at c h. T h e d i 11 e r■ e n c e c an b e m i n i rn a l o r 
sometimes ctuite drastic. .. but why ? The reason < as you have 
rrobably already auessed > is variable storage. 

In PET BASIC there are generally three tyres ot 
*.,»ar i ab Ies str l na .■ 11o at i na p o i nt and i nte aer ar r ay 

».,• ar i ata les ar• e haridied d i tterent ly than these and w ill be 
discussed later >. When PET executes statements such as •' 

A = 4.8 (direct) 

10 LET V = 17.5 
20 X".’ = 1 
30 B* = n xxxx M 

...it stores these variables and their assignments in 
variable storage srac-eRAM memory sra.ce determined by 
pointers in PET s oreratlna system which are set up on rower 
up or at ter a LORD- as the case may be. They are stored in 
the order in which they are encountered. 

Let s take a look at how each ot these variables are 
hand led by PET. First you 11 need the machine lanauaae 
monitor . 8k users wi 11 have to LOAD the monitor and to l low 
these 8 rre liminary steps* 


1. LIST. 10 SVS< 10>;y> should appear. It not.- record the 
U SVS“ number. 

RUM the monitor 

3 . Type exactly M 0 U 7 h 0 097 and hit RETURN. The to l low in a 
shou Id appear- 



007R 

0 

01 

i 

04 

6B 

07 

4 

6B 

5 

07 

& 

6B 

r 

07 

. • 

0082 

00 

20 

0C 

£1 

00 

20 

0A 

00 


008A 

yy 

0E 

00 

04 

04 

08 

00 

04 

m 

0G92 

CC 

0C 

8L' 

EM 

24 

C6 

88 

80 
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4. Now take the cursor ur and oh an ye the to 1 lowing bytes < 
hit R E T LI R H ' at t e r e a.c h line > 


0 1 2 3 4 5 6 7 

007R 01 08 03 08 03 08 03 08 

0082 . . . . .. . . . . . . . . .. 

008 ft. 

01092 . 04 03 . . . . 


5. Tyre f1 0800 • 0 8 U 7 an d R E T LI R N. The toll o w i n a s h o u 1 d 

anrear 


0 1 2 3 4 5 6 7 

0i800 24 24 24 24 24 24 2 4 ^4 


6. Ghanae to 


0 1 2 3 4 5 6 7 
0800 00 0O 00 2:4 24 24 24 24 


PET has now been tooled into thinkiny that BRSIC memory 
s r ac e n o w s t ar t s at 0800 i n s t e ad o t 0400. T h i s r r o t e c t s 4. f , e 
rnaohine lanyua.ye monitor trorri beiny o lobbered when e tr a 
BhSIC is entered. 



NOTE • 

Ot 

course a 11 

th i 


i s 

urine 

e a 

ar y 

to 

r 

1 

t* 

/32 k 

user 

"S 3S +1" 

ie M 

. L. M . is in F: 

DM 

and 

o a 

n t 

be 

tra 

mr le 

d 

o 

ri 

by 

anythiny. 

How 

however • an 

y T 

urt 

her 

i n 

ar 

JCtl 

on a 

W 1 1 

1 

re 


u l re 

one 

set ot 

addresses tor ok 

s 

and 

an 

oth 

er 

tor 

16 

/32k 

JE 

: a 

a 

the 

rest. 

Jl-ts o+ 

thi 

s e >•: e r c i s e w i 

1 1 

end 

ur 

i ri 


d i 11 

e r e 

r«t 

ar 

e a 

s 

ot 

rue rue 

nry tor 

the 

two rnaohines 

. 

The 

ret 

ore 

t hi e 

16/ 

32k 

ie 

• er 


W 1 1 1 

use 

the addres 

s e s o r r ar am e 

ter 

S 

lac 

ed 

in 

bra 

eke 

ta. 






Exit the 

rn o n i t o r an d e 

nte 

r and 

RUN 

the t 

o 1 l 

ow i ri 

y 

BR 

u 

I C 




20 H =2.5 
















30 BK = 9 




CM 

o 

sr ac 

ea 









40 C* = "XXX" 














H+'+er- 

F: U N n i n y .• re-e n t e 

r the 

mor 

i to 

r 

w i th 

i SV 

S103 

y 

i. 


S VS 4 

tor 

16/32k 

> . 

Then do tht* 

to 1 

lou. 

i ny 

» me 

mo 

ry a 

liar 

lay 








. : r -1 0800,0 

8 4 Ei 

0400, 

Ei 4 4 Ei > 










. : El 

i 

2 

■Z' 

4 

cr 

6 

■J7 









. : 0800 00 

0B 

08 

14 

00 

41 

B2 

2'2 









0808 2E 

35 

00 

14 

08 

IE 

0Ei 

42 









. 0810 25 

B2 

38 

00 

21 

08 

cZ C* 

Ei Ei 









• 0818 43 

24 

B2 


58 

cr o 

cr 

22 









. 0820 00 

00 

00 

41 

00 

C'2 

2 Ei 

00 









. : 0828 00 

00 

C 2 

80 

Ei Ei 

09 

00 

00 









. 0830 00 

43 

80 

63 

1C 

08 

00 

00 









. : 0838 24 

24 

24 

24 

24. 

, , 

■ * • ■ 








Figure 1. 
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16k users u.«ill of course see "84 s" rather than "08 s" 
arid the 11 24 s" at the bottom will be "HR’s" indicatiny "empty 
space". 

Notice the -first 4 rows is our BfiSIC Proyra/n -followed by 
three "80s" indicatiny ‘end of BRSIC . Fo 1 lowiny this is 
the variable table which we"'11 yet into riyht now. 


F loat i ny Fo i nt Var i ab les 


Flo at i mi p o i n t i rn p 1 i e s a n u n ieri c 1 * a. 1 u e w 1 1 h a f r ac t i o n a. 1 
component. In our case it will be H = 2.5 . This value is 
stored a Iona with its correspond i ny variable in the 7 memory 
locat ions to 1 lowiny 0823 <9423 > i nclus 1 ve 


0823 41 08 82 20 80 08 88 

Variations ot the above 7 locations is all that is 
required to store any tloatiny point number within the upper 
and lower limits ot PETs tloatiny point rerye. 

The tirst two bytes are used to store the var iable. 41 
is "R" in hexadecimal. The next byte is set aside tor double 
character variables e.y. HH—2.5 >. Since ours is only a 
sin-yle character, location 8824 will be 88 as shown. 

The remai n i ny 5 bates ar e tor the actua 1 va lue l tse It. 
The 82 is the exponent ot the value. This is ottset by 88 < 

halt ot FF ;« such that negative exponents can also be 
obtained. In our case 2 is added to indicate that the 
decimal point is 2 places to the riyht ot the most 
siynifiyant bit. fis you know., binary 2 - . . . . Gt'4 + 1*2 + 
8*1 ... . 






0 0 0 0 1 0 . X X X X X X 

That covers the integer part... now the fractional Part. 

Ne have 2 so tar. he need to represent .5 more. There tore 
a " 1 " is re *lu i red i n t h e 2 c o 1 u m n. This is c o n t a i n ed i n t h e 
next bate fo l lowiny the exponent. 8826 contains 28 which., in 
binary, is 


0 0 1 0 0 0 0 0 


This is "OR-d" into the above such that the leftmost bit is 
beneath the most siymf i yant bit of the inteyer p ar• t ot the 
number 


j*4 








0 0 


0 


OR d with 


1 

0 


0 


1 0 0 0 0 01 


= 01 01 01 01 1 01 . 1 01 01 01 01 V 


. . .whioh IS 1*2 + 1 *. 5 


I 
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Lastly is “the sian of “the ualue. If you study “the "theory 
of “this method of deriviny numbers.* you' ll notice that the 
leftmost bit of the " OR “d with" number never has to be a 1 
for determining the magnitude of the number. Therefore it is 
used as the si an bit and is set to 1 for neyative numbers. 
Ex am r les of this and more float iny point numbers at the end 
of this article. 


Inteyer Vaniab les 


Integers are those with no fractional component and are 
stored by PET in a much simpler fashion. In our case.* B"-.' is 
stored in the 7 bytes immediately following h . But how does 
PET know that this variable is any different from the last. 
Notice the first two bytes of Bas compared to H 

0823 41 00 

082H C2 80 00 03 00 00 00 

Since fl is represented -as 41 in hex.* you miyht expect that B 
is 42. Well you're riyht;- B is 42 in hex but when B < or any 
other letter > is employed as an integer variable.* bit 8 is 
set to 1 such that PET can make the distinction. Looking at 
the tab* le on the last p aye of the last Transactor., you'll see 
that the letters stop at decimal 90 and therefore newer use 
the 8th bit. Expandiny... 

“ft " =41=01 0 0 0 0 0 1 
"B" = 42 = ti 1 0 0 Ci 0i 1 0i 
“BX" = 02 = 1 1 0 0 0i 0i 1 0i 


Bit 8 of the second byte of an integer variable is also 
set even if a double variable name is not used. 

The next two bytes of the seven ar e the on ly ones used 
to represent the value. The remaininy three are never used. 
I nteyers take no less space than float iny Point except in 
arrays. This simrlifies the search process. 

The first byte used in represent iny the value.. 0820 •; 
0420 > .* is the hiyh order byte and the second 082D < 042B >.. 
is the low order. The two are of course the hex 
represent at i on of the value in ‘decimal. Recall that the 
maximiurn integer value possible is 32767 or 8000 hex. The 
r ema.i n i ny pcss i bi l i t i es ar e used f or rieyat i ve i nteyers. Sorrie 
examples ; 


BE 

= 


= 

00 

09 

BE 

= 

256 

= 

01 

00 

BE 

= 

257 

= 

01 

01 

BE 

= 

0 

= 

00 

00 

BE 

= 

-1 

= 

FF 

FF 

BE 

= 

-256 

= 

FE 

00 

BE 

= 

—32767 

= 

80 

01 
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Str i na Var i ab les 

For every string variable created.- another 7 bates are 
used up by PET but of course the string itself is not stored 
there. Our string variable, C*, is stored best inning at 0831 
< 0431 >. PET distinguishes str ina var iables by setting bit 
3 over the second bate only. "C" is 43 in hex 

0831 43 86 03 1C 08 00 00 

Location 0833 < 0433 > holds the lenath of the striny < 
Recall,.. 40 C* = "XXX" >. The following two bytes are the 
1 ri m arid hi ah order bytes of the address of the strina. 
Inothenuords.- why store the string again when it already 
ex i sts i n the text area. I nstead s i mr ly store a noi nter 
which points at the first character of the string arid call up 
X number of characters foilou.» i na where X e*-tuals the '* lenath" 
byte 03 in our case . 

This procedure is fine for strings which are defined in 
text * but what about those that are not. Take for ex amp le 
t hi e f o 11 o w i n a • 

100 INPUT " VOUF: NAME ", ft* 

200 D* = RIGHT* < ft* , 1 > 

308 C* = D* + + ft* 

In cases like these.* PET stores the strings at the end of 
.=».»...»a. i l ab 1 e R ft M m o v i n a d o w n an d c r eat e s a p o i n t e r i n t h e 

v ar i ab 1 e t ab 1 e t o t hi e b e a i n n i n a o f t h e s t r i n g. 

The Search Process 

Each time a. variable is defined* 7 bytes of memory are 

used up. When a variable is called by Eft'S IL in lines such 

as • 

400 IF ft = 1 THEN ft = ft + 5 

500 PRINT BE , C* 

600 ON ft GOTO 1020 .* 1030 . 

700 X = X - 3 

...PET s t ar t s at t hi e b e a i n n i n a o f t hi e v ar i ab 1 e t ab 1 e .* 

determined by the pointer at 087C & 807D < 002ft, Q02B >, and 

examines the first pair of bytes. If an exact match is not 
made, PET J um ps 7 1 ocat i ons to the next var■ i ab 1 e. The sear ch 

continues unti 1 the variable is found and if not found is 
assumed to be zero or null for strings. 

Once established, F'ET loads the value or strina into a. 
work area, and performs the desired operation. In a. situation 
suchi as 1 i ne 7UU, F'ET ruust f i nd X •■. zero or• otherw i se .>, loa.d 

it into the accumulator-. find X a.aa.in, subtract 3 and 

re~-asian X. Of course all this takes time and if X resides 
down at the end of the table, PET must scan throuah all the 
v ar i ab les ah e ad o f X b e f o re it f l n d s X. T hi e r e f o r e, if a. 
variable is known to be used more often than others, time can 
be sa ved by " sett i na u p ’ 1 the var i ab 1 e tab 1 e at the bea inni na 
of the rro a rain • 





10 X = 0 fit = “ " : BX 


n 


0 


This c9J"i s^eed “things up considerably especially if X is 
oa.l led upon each pass of a. Iona FOR™NEXT loop. 

What Vou L-an Do 


flssuminy you :=• t i 11 have the monitor runnina with the 
display os in F i sure 1 ■ ohanae the to l low in a do not exit 


n u 8 O0.. 084 0 < 0400.. 044Gi > 

0 1 2 3 4 5 6 


Now type 


fl , BX , C* 


chanaed to OF. 

It you Oh 
i mpossible ; 


y0£i 



• ■ ■ « m 


80S 



mm urn m 


810 



mm mm m 

m mm mm mm 

SIS 



. . 22 5 

9 59 53 22 

820 



mm mm m 

. ya 20 . . 

y c: y 



mm mm m 

. 0F .. . . 

8301 



, . 65 1 

mm mm m 

C 07 .- .. 

.d RETURN 

t 

o e x i t 

the monito 

i rec 

t ly 

on 

the sc 

reen ; 

•use 

the 

e x 

p onent 

of H was ii 

ever 

ythi 

na 

was sh 

ifted left 

n if l 

a ant 

b 

it MS 

B > in the 

t < 

LSE 

T 

in the 

co lurnn. 

u.i si 

nee 

th 

e low 

order byt 

tr i e 

■d rr 

ri y 

ra/fim i ns 

i this.. y 


40 Ct = ""VVV. 


PET i nt er p* rets th l s as null st r i na to 1 1 owe d by thi e var • i ab 1 e 

! n i» i . 

T T T 

. I } I M M III 


as t hi e 1 •=.-* n a t hi. 

F 1 oa t i na F'o i nt Ex: an p les 


The maanitude of a floatina point value is always stored 
m 5 bates- The other t'.uo are reserved for the variable name 
and u.« i 11 be i snored here so that we can concentrate on the 
format of the value. 

Float ina point is handled by PET in this format ‘M’ = 
Mantissa >• 


EXP Ml M2 M3 M4 SIGN 

T hi e si a n is c o n tame d i r i M1 b l i t is " e x t r a c t e d "' on its 
way i nto t hie accumu 1 ator and r 1 aced i ri a ’’ s l an rea i ster . 


2 4 














e, :p 


Ml 


M2 

40 


M3 
0 0 


M4 

00 


3 1 nce the E P is 85 ■ the d ec i ma 1 p oint will be 
positions to the ri-yht ot the MSB < Most S i an i t i *3 ant Bit > • 


EX 


v P = _ [ O o o o o o 


So tar the maani+ude is 16. 

Ml = 22 = U 0 1 0 0 0 1 0 

M2 = 40 =01 0 0 0 0 0 0 

M3 = M4 = 0 

To co mi* lot e tli o* o K' 0 1 ~~ a. t i o ft .* Mi ari cl M2 si' e o C' n o a. t e ri sot e d ■ ■ ■ 

Ml + M2 = 0 0 1 0 0 0 1 0 0 1 0 0 0000 

...arid OR d with the EXP such tha.t the lettrnost bit ot Ml + 

M2 ia under' the MoB ot the va. lue 

e: , ;p = _ ] 0 0 o o _ o o 

OP d with Mi t M2 =_ 9 919 9. 9lQOqqgggog 


Foiua. Is 


L 9 1 9 9 . 9 . L 2 9 i 9 


This is still the b i nary represent s.t i on. The decimal oa. lue 

1 s now 

a Z. i o -| -Z -3 "<+ 

1*2 + 0*2 + 1*2 + 0*2 •+■ 0*2 ■+• 0*2 4 - 1*2 4 - 0*2 + 0*2 

4 1 * 4 M * 2 ^ 4 . , „ 

. . wh 1 ch e*-4U r 4 I s ■ . . 

1 * 1 E ' + 1*4 4 1 * . cl *5 4 1 * . fcl 3 1 2 5 — 2 U . 2 O 1 2 5 

EXP Ml M2 M3 M4 
Thier ef o r e 20.23:125 = 85 22 40 00 00 


E-n 2. EXP Ml M2 M3 M4 
8 H FF E7 80 00 

Since the EXP is 8Fh the decimal point will be 10 
p ositi o n s to t h e r i y h t o t t hi e M S B. 

F: , ;P = _ 199900000 o m o q _ 

Notice that bit 8 of Mantissa 1 is set. Therefore.- the si sin 
ot the n a lue ».ui 11 be ne-yatioe. Now Ml.- M2.- Mb' arid M4 must be 
c o n c a t e n at e >4 

Ml = FF = 

M2 = E7 = 

Ms = 80 — 

M4 = 00 


1111 1111 
1110 0111 
1 000 0000 









M *•'. 1 + 2 + 3 > = 1111 1111 Illy 0111 1 000 0000 


. . - and OR d with the EXP. . . 


EKP = _!0 500oppflo , CO 


OR- M = 


E«tua Is = 


I / I I I / I I I 


I O O | 


O O O O O 


I I I I I I I / I I I 0 O I I I I 0 


. .which e«i«als. . . 

4 « 7 _fc 

Z + 2 +2 +2 

+ 2' 6 + 2 * 7 


.5 _4 _/ O -/ -.6 

1 + cL + cl + cl •+• cl + X’ +2 ■+• :J-’ -f 


In decimal : 

512 + 256 + 128 + 64 + 32 + 16+8+4+2+ 1 + .5 + .0625 + 
.03125 + .015625 + .0078125 = 1823.6171875 

However* "the si an is nea-atiye. . . theretore : 

EXP Ml M2 M3 M4 
-1023.6171875 = 8 Ft FF E7 SO 0G 


Ea 3. EXP Ml M2 M3 M4 
7E E0 00 00 00 

The EXP is less than 80 iridicatina "the result wi ll be 
less -than 1. Now the decimal point will be 2 positions to 
the le+t o+ the MSB because 7E is 2 less than 80• 


EXP = 


o o O loo 


EXP = 
M = 


Ml = EG = 1110 0008 
M2 = ©0 
M3 = 08 
M4 = 08 

pip__ 

J_±±GO<~>Oq 


Equals 


O I I I o o 


In decimal = - 1 


_< + . 0625 } 


= -.4375 


Nothina to it- riaht? Try these 

Ea 4. EXP Ml M2 M3 M4 

84 48 00 00 80 = _ _ _ _ . 


Ea 5. EXP Ml M2 M3 M4 
7F C0 00 00 00 

Ea 6. EXP Ml M2 M3 M4 
_ _ _ 00 00 
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IEEE BUS HANDSHAKE ROUTINE IN MACHINE LANGUAGE 


To use the IEEE-488 bus on the PET at maximum speed it is necessary 
to use machine language rather than BASIC ? INPUT’ and ’PRINT’. The 
routine given here has been used with an HP3437A systems voltmeter to 
reach data transfer speeds of over 5000 bytes per second, corresponding 
to 2500 voltage readings in 2-byte packed binary format or 625 readings 
in 8-byte ASCII format. The best speed attained in BASIC is 75 readings 
per second transferred as character strings. 


The IEEE bus 


Details of the IEEE-488 bus are given in the PET Users Handbook, but some 
clarification of the register addresses on page 120 of the handbook is 
helpful. These are: 


HEX 

DECIMAL 

BITS 

IEEE 

DIRECTION 

E820 

59424 

0-7 

DIO 1-8 

from bus 

E822 

59426 

0-7 

DIO 1-8 

to bus; ’PET’controlled 

E821 

59425 

3 

NDAC 

’PET’ controlled 

E823 

59427 

3 

DAV 

’PET’ controlled 

E840 

59456 

0 

NDAC 

from bus 



1 

NRFD 

’PET’ controlled 



2 

ATN 

’PET’ controlled 



6 

NRFD 

from bus 



7 

DAV 

from bus 

Note that on 

the IEEE bus, 

'high' 

is logic false 

and ’low’ is logic true 

and that the 

data bus must 

be left 

with all bits 

’high* when PET has 

finished to 

avoid confusion 

of data put on to the bus by other devices. 


************ t***************************************************************^##^^ 



Computer.’ 



A Sudden Reduction of Personnel Is 
Indicated.’ 
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The program controls a given number of data transfers, each of 8 bytes, 
from the HP3437A to the PET. Each one is preceded by a trigger (GET — 
group execute trigger) on the IEEE bus, and the HP3437A must be correctly 
addressed as a T talker f or a 'listener 1 at all times by sending MTA 
(ay talk address) or MLA (my listen address) before transfers as 
appropriate. The sending of messages (GET, MTA, MLA, etc.) or data is 
controlled by the ATN line; ATN is true when messages are being sent. 

The program and returned data are held in the top 2K of memory; this 
is hidden from BASIC using POKE 134,253 : POKE 135,23 as the first line 
of the BASIC control program. The number of readings required is POKEd 
into 6400^, then control passed to the machine language program by 
SYS (6144). The data bytes coming in on the IEEE bus are stored in 
locations 6401^ onwards; these are PEEKed out on return to BASIC, and 
converted into numbers using the function VAL. As the index register is 
used for counting, only 256 bytes can be transferred using this program, 
but it would be easy to modify the program to perform more transfers. 

Di sassembled listings with comments and a separate listing (for ease of 
copying into BASIC DATA statements!) are given. 


This program was prepared using a machine language handler written by 
the author, and the listings produced by this handler and by a modified 
version of the ’disassemble 1 part of the PETSOFT (5) ASSEMBLER 'EXEC' 
program. 

IEEE bus handshake routine - main program 


1800 

A200 

LDX 

¥00 

prepare index register 

1802 

A9FB 

LDA 

#FB 

set ATN low 

1804 

2D40E8 

AND 

E840 


1807 

8D40E8 

STA 

E840 


180 A 

A928 

LDA 

#28 

MLA (28 for this device) 

180C 

8501 

STA 

01 


180E 

208018 

JSR 

1880 

handshake into bus 

1811 

A908 

LDA 

#08 

GET 

1813 

8501 

STA 

01 


1815 

208018 

JSR 

1880 

handshake 

1818 

A948 

LDA 

#48 

MTA 

181A 

8501 

STA 

01 


181C 

208018 

JSR 

1880 

handshake 

181F 

A9FD 

LDA 

#FD 

set NRFD low (ready to receive data) 

1821 

2D40E8 

AND 

E840 


1824 

8D40E8 

STA 

E840 


1827 

A9F7 

LDA 

#F7 

and NDAC low also 

1829 

2D21E8 

AND 

E821 


182C 

8D21E8 

STA 

E821 


182F 

A904 

LDA 

#04 

set ATN high 

1831 

0D40E8 

ORA 

E840 
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1834 

8D40E8 

STA 

E840 


1837 

A008 

LDY 

#08 

ready to count 8 bytes 

1839 

20B018 

JSR 

18B0 

handshake data from bus 

183C 

A502 

LDA 

02 

result to A 

183E 

9D0119 

STA 

1901, 

,X store in 1901+X 

1841 

E8 

INX 



1842 

88 

DEY 



1843 

DOF 4 

BNE 

1839 

jump if Y not zero 

1845 

A9FB 

LDA 

#FB 

set ATN low 

1847 

2D40E8 

AND 

E840 


184A 

8D40E8 

STA 

E840 


184D 

A902 

LDA 

#02 

set NRFD high 

184F 

0D40E8 

OPA 

E840 


1852 

8D40E8 

STA 

E840 


1855 

A908 

LDA 

#08 

set NDAC high 

1857 

0D21E8 

ORA 

E821 


185A 

8D21E8 

STA 

E821 


185D 

A95F 

LDA 

#5F 

UNT 

185F 

8501 

STA 

01 


1861 

208018 

JSR 

1880 

handshake to bus 

1864 

A904 

LDA 

#04 

set ATN high 

1866 

0D40E8 

ORA 

E840 


1869 

8D40E8 

STA 

E840 


186C 

CE0019 

DEC 

1900 

decrease counter 

186F 

D091 

BNE 

1802 

jump if not zero 

1871 

60 

RTS 


return to BASIC program 

subroutine to handle 

handshake into bus 

1880 

AD40E8 

LDA 

E840 

NRFD ? 

1883 

2940 

AND 

#40 


1885 

F0F9 

BEQ 

1880 

jump back if not ready 

1887 

A501 

LDA 

01 

ready: get data byte 

1889 

49FF 

EOR 

#FF 

complement it 

188B 

8D22E8 

STA 

E822 

send to bus 

188E 

A9F7 

LDA 

#F7 

set DAV low 

1890 

2D23E8 

AND 

E823 


1893 

8D23E8 

STA 

E823 


1896 

AD40E8 

LDA 

E840 

NDAC ? 

1899 

2901 

AND 

*01 


189B 

F0F9 

BEQ 

1896 

jump back if not accepted 

189D 

A908 

LDA 

#08 

accepted; set DAV high 

189F 

OD23E8 

ORA 

E823 


18A2 

8D23E8 

STA 

E823 


18A5 

A9FF 

LDA 

#FF 

255^ into bus 

18A7 

8D22E8 

STA 

E822 

18AA 

60 

RTS 


return to main 


subroutine to handle handshake from bus 


18B0 A902 LDA *02 
18B2 0D40E8 ORA E840 
1885 8D40E8 STA E840 
18B8 AD40E8 LDA E840 
18BB 2980 AND *80 
18BD DOF9 BNE 18B8 
18BF AD20E8 LDA E820 
18C2 49FF EOR #FF 
18C4 8502 STA 02 


set NRFD high 


DAV ? 

jump back if not valid 
get data byte from bus 
complement 
store in $ 0002 




18C8 

2D40E8 

AND 

E840 

18CB 

8D40E8 

STA 

E840 

18CE 

A908 

LDA 

*08 

18D0 

OD21E8 

ORA 

E821 

18D3 

8D21E8 

STA 

E821 

18D6 

AD40E8 

LDA 

E840 

18D9 

2980 

AND 

*80 

18DB 

F0F9 

BEQ 

18D6 

18DD 

A9F7 

LDA 

*F7 

18DF 

2D21E8 

AND 

E821 

18E2 

8D21E8 

STA 

E821 

18E5 

A9FF 

LDA 

#FF 

18E7 

8D22E8 

STA 

E822 

1.8EA 

60 

RTS 



set NDAC high 

DAV high ? 

jump back if not 
set NDAC low 

255^ into bus 
return to main 


IEEE bus handshake routine listing 


1800 

A2 

00 

A9 

FB 

2D 

40 

E8 

8D 

1808 

40 

E8 

A9 

28 

85 

01 

20 

80 

1810 

18 

A9 

08 

85 

01 

20 

80 

18 

1818 

A9 

48 

85 

01 

20 

80 

18 

A9 

1820 

FD 

2D 

40 

E8 

8D 

40 

E8 

A9 

1828 

F7 

2D 

21 

E8 

8D 

21 

E8 

A9 

1830 

04 

OD 

40 

E8 

8D 

40 

E8 

AO 

1838 

08 

20 

BO 

18 

A5 

02 

9D 

01 

1840 

19 

E8 

88 

DO 

F4 

A9 

FB 

2D 

1848 

40 

E8 

8D 

40 

E8 

A9 

02 

OD 

1850 

40 

E8 

8D 

40 

E8 

A9 

08 

OD 

1858 

21 

E8 

8D 

21 

E8 

A9 

5F 

85 

1860 

01 

20 

80 

18 

A9 

04 

OD 

40 

1868 

E8 

8D 

40 

E8 

CE 

00 

19 

DO 

1870 

91 

60 

EA 

EA 

EA 

EA 

EA 

EA 

1878 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

EA 

1880 

AD 

40 

E8 

29 

40 

FO 

F9 

A5 

1888 

01 

49 

FF 

8D 

22 

E8 

A9 

F7 

1890 

2D 

23 

E8 

8D 

23 

E8 

AD 

40 

1898 

E8 

29 

01 

FO 

F9 

A9 

08 

OD 

18 AO 

23 

E8 

8D 

23 

E8 

A9 

FF 

8D 

18A8 

22 

E8 

60 

EA 

EA 

EA 

EA 

EA 

18B0 

A9 

02 

OD 

40 

E8 

8D 

40 

E8 

18B8 

AD 

40 

E8 

29 

80 

DO 

F9 

AD 

18C0 

20 

E8 

49 

FF 

85 

02 

A9 

FD 

18C8 

2D 

40 

E8 

8D 

40 

E8 

A9 

08 

18DO 

OD 

21 

E8 

8D 

21 

E8 

AD 

40 

18D8 

E8 

29 

80 

FO 

F9 

A9 

F7 

2D 

18E0 

21 

E8 

8D 

21 

E8 

A9 

FF 

8D 

18E8 

22 

E8 

60 







0001 data to go into bus 
0002 data from bus 

1900 counter for number of data transfers 

1901 start of results area 


John A. Cooke 

Department of Astronomy 
University of Edinburgh 
Royal Observatory 
Edinburgh EH9 3HJ 
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comments and bulletins 
concerning your 
COMMODORE PET 1 


Vol.2 

BULLETIN # 4 

August 31, 1979 


Corn p uted G0T0 


i.uarited to proar'am a. uuTu to 1 lowed by express ion 


SUCh 3 


i 2 0 IF S1 G Ct T 0 •: S T t 10 y 


Norma l ly PET does not a 1 low this but ad Templeton ot 
M i ssiss au a a h as- s u b m i 11 e d a r ti ac h i n e 1 an y u ay e r c* u tine t h a t 
hi i 11 handle a computed GuTO. The proyram tits m only 12 
ti.ue Ice bates and can be Placed in ana part ot memory where it 
won t yet clobbered by BR'z- 1 L « It accesses code in R'UM and 
there tore has two oars ions.* one tor oriaina. 1 RuM and another 
tor upara.de RUN 


Or 

i y i na. 

1 

RON • 

JSR 

CEl 1 

che 

ok 

S’ 

f o r o o rn m a. 








e 1. s 

e 

c" : T r 

HThK erro 

R 





. JSR 

CCfl4 

e a. 

lu 

at 

e s e p r e s 

s i on 





JbR 

Ii & D 0 

l nt 

e y 

er 

? >=0 and 

06: 





JMF 

C?H0 

J u m 

p 

to 

G i J T 0 r o u t i n e 

Up 

yrade 


RON ; 

JSR 

CDF 8 










JSR 

CC8B 

s am 

e 

as 

3 b o e 






JSR 

D6D2 










IMP 

C7B0 







Be 

c • 

ause th 

ie pro 

'£• rsrii hai 

? no 

r 

et 

erenee to 

l ts< 

be 

p l ac 

e< 

d anywh 

iere • 

but -for 

now 


l.l.l 0 

1 11 Put 

it 

O 3. 

ssett 

e 

butter 

star 

■tins at 

•3 2:6 


or 

hex OS 

3fi. 


u s i n a t h e r o u 1 1 n e w ill fc:«r= 


e« y. 

BfibIL Loader 


:« t r>oci t < f CPPeS 1 on 

\j "■ ~oci6 V‘z«u ? e. i'-*ress l on 

IF ST THEN SVS G'i, ST * 10 


W 1 1h the to 1 1 ow i ny m o d 1 1 1 c at i on .• hothi ot thie ■: 
routines car be loaded into the snd cass ; ette butter and 
will deoide luhich to use. This way- proyrams usiny 
computed GOTO can be run with either RuNs. 


i Jo o e 
PET 
the 


Commodore Systems. 3370 Pharmacy Avenue, Agincourt, Ontario (416) 499-4292 













Lore PET "quirks" 


tick Ellis, Toronto, Canada 


Clear Tne Screen on your 8K PET and type in the following lines : 


POKE 59468,14 
10Opl, 3 :? "cs •• :X=63:Y=192 

2^FoI=0-rOX:I$=id(STr(I),l):?«chrv»TaI)Cn(I+Y)' ! cl''; : 

C-e ; ,4, A $: ? : ? "chcdcdca" TaX-I )A$ :NeI 

( cs_ = Clear Screen) 

Li ( ch = Cursor Home ) 

( rv = Reverse ) 

( cl = Cursor Left ) 

(Type line £20 above as one continuous line). ( cd = Cursor Down ) 

Surprise ! Line 20 is over 100 characters long. Before you try to run 
the above program, check that your listed version reads as follows. If 
not, correct it now by moving the cursor up and correcting the version 
you typed in to match the above: 

1 0 OPEMl, 3:PRIriT"cs_" :X=63:Y=192 
20 FOR 1=0 TO X: 

I$=RIGHTS(3TR$(I),1): 

PRIHT"chrv" TAB(I) CHR$(I+Y) "cl";: 

GET#1,A$: 

PRIST: 

PRINT"chcdcdcd"TAB (X-I) A$: 

NEXT I 

except of course you wont see it spaced out as above. 

How type: 


The program now displays a character-string on screen lines 1 & 2, in 
REVERSE, and as it prints each character, reads it from the screen with 
the GET#1 command, and reprints it in reverse order below. 

Try changing line #10 (yes, it's short enough!), so that Y = 64 and 
RUI'i again. 
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by B. Seiler 


INDENTING PROGRAM TEXT 


Many programmers like to indent their FOR-NEXT loops, to 
enhance readability. Up until now, this has only been 
possible by putting a colon (:) at the start of each line 
to be indented or spaced. For example: 

10 FOR 1=1 TO 10 
20 : FOR J=1 TO 10 
30 : FOR K=1 TO 10 

40 : 

50 PRINT I,J,K 

60 : 

70 : NEXT K 

80 NEXT J 
90 NEXT I 

This helps roadability greatly, but you can go even further! 

By substituting SHIFTED(graphic) characters instead of colons, 
and using " ' (graphic space graphic) to blank a line, the 
listing would be typed in like this (note: any shifted 
character can be substituted for the y ); 


1 0 

FOR 1=1 TO 10 

20 

% 

FOR J=1 TO 10 

30 

m 

FOR K=1 TO 10 

46 

m 

8$ 

50 

m 

PRINT I, JT K 

60 

m 

& 

70 

M 

NEXT K 

SO 

m 

NEXT J 

96 

NEXT I 


10 FOR 1=1 TO 16 
20 FOR J=1 TO 1© 

30 FOR K=1 TO 10 

40 

50 PRINT I,J,K 

60 

70 NEXT K 

30 NEXT J 
90 NEXT I 


The same result is achieved, but the listing is cleaner. 

To use the screen editor, and retain this formatting, list 
the problem lines, put a - after the line#, and edit as 
usua1. 
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IFless Decisions 


99% of all computer programs contain at least one 
decision making statement. The fundamental decision makers 
in PET BASIC are of course the IF-THEN and IF-GOTO 
statements. However, when a program performs a lot of tests 
or comparisons, it can become plagued with IF-THEN 
statements. Following are a few techniques for making 
decisions without 'IF'. 

1. In real-time programs where GET is used to echo keyboard 
input onto the screen, some keys may need to be intercepted 
else cause undesirable effects; keys such as RVS, DEL, INST, 
CLR, etc. Also, other keys might want to be used as 
'control' keys for initializing functions; keys such as 
RETURN, RVS, shifted RETURN, HOME, etc. Below is a routine 
which eliminates countless 'IFs'. 

55000 C$ = "@#$%&*+/>< :'CLR''HOME''RVS' 

'RVSOFF' " + CHR$('DEL') + CHR$('INST') 

+ CHR$('RET') + CHR$('shRET') 

55010 GET T$ : IF T$ = "" THEN 55010 
55020 B = 0 

55030 FOR J = 1 TO LEN (Z$) 

55040 A$ = MID$ (Z$ , J , 1) 

55050 IF A$ = T$ THEN B=J : J=LEN(Z$) 

55060 NEXT 

55070 IF B = 0 THEN PRINT T$;:GOTO 55010 
55080 ON B GOTO 60000,60100,60200,60300, 

60400,60500,60600,60700,60800,60900, 

55090 ON B-10 GOTO 61000,61100,61200,61300 
61400,61500,61600,61700,61800,61900 

This routine will PRINT any character not included in Z$. 
A repeat-key could also be implemented with: 

55070 IF B = 0 THEN PRINTT$;:POKE515,255 
:GOTO55010 


2. See if you can determine what decisions the following two 
programs are making. 

10 INPUT X , Y 

20 PRINT ( X + Y - ABS( X - Y ))/2 
30 GOTO 10 


10 INPUT X , Y 

20 PRINT ( X + Y + ABS( X - Y ))/2 
30 GOTO 10 

Modifications of the above routines (i.e. using a 
FOR-NEXT loop and array variables) might be useful in 
programs performing sorts. 
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3. IF B = 0 THEN A = 32768 

IF B = 1 THEN A = 1.259 

IF B = 2 THEN A = 556.2 

IF B = 3 THEN A = 400 * B 

The above could continue forever depending on the 
possibilities for B. Try the following in direct mode on 
your PET: 

Type: B = 2 and RET 

Now type: ? B = 0 

PET will reply with 0 because B does not equal 0. 

Type: ? B =2 
and: ? B <> 0 

In both cases PET will return a "-1" because the statements 
are true. This can be used most efficiently to replace the 
above IF-THEN statements: 

A = -((B = 0)* 32768 + (B=l)* 1.259 + (B=2)* 556.2 

+ (B=3) * 400 * B) 

Since only one will be true, the others will be 
multiplied by zero and added. The negative sign in front 
changes the result back to positive. 

4. This one uses the 'IF' statement but no comparison 
operator is used (i.e. >,=,<,<> ). Try the following 
program. 

10 INPUT X 

20 IF X THEN ?"DID BRANCH":GOTO 10 
30 ?"DID NOT BRANCH":GOTO 10 

"DID BRANCH" occurs if X is anything but zero. On what 
condition does the following program branch: 

10 INPUT X 

20 IF NOT X AND 1 THEN ?"DID BRANCH":GOTO 10 
30 ?"DID NOT BRANCH":GOTO 10 
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A Fast Sort 


Jim Butterfield, Toronto 


When you need to sort a large array, sorting speed becomes 
important. Most simple sorts become very slow, since twice 
as many items will take four times as long to sort. 

This fast sort is called "selective replacement"; it's 
classified as a tree type sort. It needs an index array, 
called l(J) here, which is twice the size of the items to 
be sorted. Memory can be saved, if needed, by making it 
an integer type array. 

100 DIM 1(200), N$(100). A$(100) 

110 REM SIMPLE INPUT ROUTINE - WRITE YOUR CWN FOR FILES 
120 INPUT "HOW MANY ITEMS"; N 
130 FOR J*0 TO N-l 

11*0 INPUT "NAME";N$(J) 

150 INPUT "ADDRESS";At(J) 

160 REM INPUT OTHER DATA HERE IF DESIRED 

170 NEXT J 

200 REM SORT STARTS HERE - INITIAL SCAN FINDS FIRST NUMBER 
210 B-N-l : FOR J-0 TO B : I(J)=J : NEXT J 
220 FOR J-0 TO N*2-3 STEP 2 
230 B*B+1 : Il-l(J) : I2-I(J+1) 

21*0 GQSUB 700 : REM PERFORM COMPARISON 

250 I(B)“I : NEXT J 

300 REM MAIN LOOP - OUTPUT NEXT VALUE 

310 X-X-l : C-I(B) : IF C<0 GOTO 800 

320 REM OUTPUT ITEM TO SCREEN, PRINTER, OR FILE AS DESIRED 
330 PRINT N$(C),A$(C) 

31*0 l(C)-X 

350 REM INNER LOOP TO FIND NEXT ITEM 

360 C£=C/2 : J<#*2 : C-N-K# : IF C>B GOTO 300 

370 n-I(J) : I2**I(J+l) 

380 IF IKO THEN 1*12 : GOTO 1*10 

390 IF I2<0 THEN I=n : GOTO 1*10 

1*00 GOSUB 700 : REM PERFORM COMPARISON 

1*10 I(C)-I : GOTO 350 

700 REM COMPARE TWO ITEMS - MODIFY TO FIT APPLICATION 
710 I-Il s IF NS(l2)<N$(n) THEN 1*12 
720 RETURN 

800 STOP : REM END OF SORT 


As you get the sorted item at line 320. it’s best to output it 
(or process it) cn the spot. If some reason exists for completing 
the sort before going on to other processing, you 'll find that 
index array I(J) contains information about the proper order for 
the data. 
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Disabling the STOP key . 

It's useful to be able to disable the STOP key, so that a 
program cannot be accidentally (or deliberately) stopped. 

METHOD A is quick. Any cassette tape activity will reset 
the STOP key to its normal function, however. 

METHOD A, Original ROM: 

Disable the STOP key with POKE 537,136 
Restore the STOP key with POKE 537,133 

METHOD A, Upgrade ROM: 

Disable the STOP key with POKE 144,49 
Restore the STOP key with POKE 144,46 

Method A also disconnects the computer's clocks (TI and TI$). 
If you need these for timing in your program, you should 
use method B. 

METHOD B is slightly more lengthy, but does not disturb 
the clocks. This method prohibits cassette tape activity. 

METHOD B, Original ROM: 

100 R$="20>:??:9??8=09024<88>6" 

110 FOR 1=1 TO LEN(R$)/2 

120 POKE 1+900,ASC(MID$(R$,1*2-1))*16 + 

ASC(MID$(R$,I*2)) — 816 : NEXT I 

After the above has run: 

Disable the STOP key with POKE 538,3 

Restore the STOP key with POKE 538,230 

METHOD B, Upgrade ROM: 

100 R$="20>:??:9??8=9:004<31>6" 

110 FOR 1=1 TO LEN(R$)/2 
120 POKE 1+844,ASC(MID$(R$,1*2-1))*16 + 
ASC(MID$(R$,I*2))-816 : NEXT I 
After the above has run: 

Disable the STOP key with POKE 144,77 * POKE 145,3 

Restore the STOP key with POKE 145,230 : POKE 144,46 

How they work: Both methods change the interrupt program 
which takes care of the keyboard, cursor, clocks and 
the stop key. 

Method A simply skips the clock update and the stop key test. 

Method B builds a small program into the second cassette 

buffer which performs the clock update and stop key test, 
but then nullifies the result of this test. 

The little program in method B is contained in R$ in 
"pig hexadecimal" format. Machine language programmers 
would read this as: 20 EA FF (do clock update and stop 
key test) A9 FF 8D 9B 00 (cancel stop test result) 

4C 31 E6 (continue with keyboard service, etc.) 
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Bits and Pieces 

Chuan Chee of St. Catherines, Ontario, has written the 
Transactor with a few items of interest: 

1. When a variable is assigned the value zero with " A = 0 

", it can be substituted with " A = . The decimal point 

in this case is equivalent to zero and is 600 microseconds 
faster than zero. This does not mean that " 1000 " can be 
replaced by " 1... " since the latter is interpreted as "1" 
followed by a decimal point and two zeros. 

2. "LIST 0" lists the whole program instead of just 
statement 0. 

3. "(shift) RETURN" acts only as a simple CRLF instead of 
entering it into BASIC to be interpreted. 

4. Statements such as " 2*-3 " and " 2/-3 " are possible 

on the PET whereas other computers require " 2*(-3) " and " 

2/(-3) ". In fact, you can have up to 14 signs and any 

number of " + " preceeding a numeric. Any more than 14 

will result in an ?OUT OF MEMORY ERROR as the stack used by 
BASIC is overflowed. 

5. When trying ? "Y" < "YES", PET replies with -1 which is 
correct. Now try; A$ = "Y" : ? A$ < "YES" and PET returns a 
0 which is wrong. If this is entered as a program as 
follows: 

10 A$ = "Y" : ? A$ < "YES" 

....and RUN, PET replies with -1. So why does it work in 
program mode but not immediate mode? 

Answer anyone? 


Commodore Bus Mach, 3370 Pharmacy Av, Agincourt Ont 499 4292 
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‘Billy, As Soon As You Finish Your 
Homework Could You Help Mommy 
And Me Balance the Checkbook?’ 













Memory Expansion. Cost: $0.00 


Ever been stuck for those few extra bytes needed to 
complete a program? 8K users probably know the feeling. 
Well now there is a consolation. If your program does not 
use tape file access with the second cassette, then the RAM 
memory devoted to the 2nd cassette buffer can be added to the 
memory used for BASIC. 

The procedure is somewhat different for old ROMs and new 
but the concept is the same. Every byte of RAM in PET is 
physically and electronically identical. PET splits up RAM 
using pointers. Since these pointers are stored in RAM they 
can therefore be changed. Let's take a look at these 
pointers individually: 

Old ROM: 


In PETs with old ROMs, there are basically 4 pointers 
used to create partitions within RAM. Pointers use two bytes 
and are stored low order first, high order second. 

1. Start of BASIC Pointer 

The start of BASIC pointer does exactly what you 
might think it would do; point at the start of BASIC. 
It is stored in locations $007A and $007B or decimal 122 
and 123 and on power-up it is set to $0401 or decimal 
1025. PET calls on this pointer to determine where to 
begin executing a RUN. 

2. End of BASIC / Start of Variables Pointer 

As BASIC statements such as A=0 and X%=lu are 
executed, a variable table is set up immediately 
following the BASIC program. The variables and their 
corresponding values are stored in the table and and 
consume 7 bytes each. When called, in statements such 
as IF A=0 THEN... , PET jumps to the location according 
to the value of this pointer and begins searching. When 
an exact match between the variable in the current 
statement and one stored in the table is made, PET 
fetches the corresponding value and moves it to a work 
area and BASIC continues. 

This pointer is stored at $007C and $007D or 
decimal 124 and 125 and on power-up is set to $0404 or 
1028 decimal. It's value, however, will constantly be 
changing as BASIC code is inserted or deleted. This is 
why the values of all variables become zero when a 
program change is made; if code is inserted, program 
text is written over the first variables in the table. 
If code is deleted, the bytes used by the variable table 
are untouched but the end of BASIC is changed and this 
pointer is no longer set to the start of variables. 
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3. End of Variables / Start of Arrays Pointer 

Stored at $007E-7F or decimal 126-127, this pointer 
works much the same way as the previous one when array 
variables are called. It is also set to $0404 on 
power-up. As DIM statements are executed, arrays are 
set up starting at the location determined by this 
pointer. This will be the first byte following the last 
byte of the variable table. But what happens when a 
value is assigned to a new variable? If no arrays 
exist, the new variable and its value are simply stored 
in the 7 bytes following the location pointed at by the 
End of Variables pointer inclusive. The pointer is then 
updated to await the next new variable. 

However, if arrays are present, a space must be 
created such that the new entry can be inserted as part 
of the variable table. This means that the arrays must 
first be moved up 7 bytes. Try the following: 

Power-up PET 

Type: ?TI : A=0 : ?TI 
Note the time difference 

Now type: DIM A (4,255) 

and: ?TI : B=0 : ?TI 
Notice how much longer it takes 

The extra time is spent transfering each byte of the 
arrays ahead by 7 bytes. Of course PET must start with the 
last byte of the arrays which brings us to... 

4. End of Arrays / Start of Available Space Pointer 

When PET must open up a space for a new variable by 
moving the arrays up, it calls on this pointer to 
determine where to start transfering bytes. PET 
continues this byte by byte transfer until the byte 
pointed at by the start of arrays pointer is also moved. 
The new entry is then inserted...process complete. 

The End of Arrays pointer lies at $0080-81 or 
decimal 128-129 and also contains $0404 after power-up. 

New ROM: 


In new ROM PETs there are also basically 4 pointers used 
to section off RAM and are used the same way as old ROM PETs. 
However, they are stored in different places. 

Pointers: __ Decimal Locations: _O ld ROM New ROM 

Start of BASIC 122-123 40-41 
End of BASIC / Start of Variables 124-125 42-43 
End of variables / Start of Arrays 126-127 44-45 
End of Arrays or Start of Available Space 128-129 46-47 
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Moving Pointers 


Now that we know where these pointers are ana what they 
do f some experimenting can be done. Recall that on power-up 
the Start of BASIC Pointer is set to hex 0401 or decimal 
1025. However, location 1024 is also important. It has the 
value zero and represents a "dummy end-of-line". 

The 2nd cassette buffer starts at hex 033A or decimal 
826 . If this is to be included as part of BASIC memory 
space, the Start of BASIC Pointer must be moved DOWN. Since 
location 826 will have to serve as the dummy end-of-line 
character, the new start of BASIC will be 827 or $033B. The 
procedure is as follows: 

POKE 826 , 0 :Dummy end-of-line 

POKE 122 , 59 slow order byte of pointer = $3B (3*16+11) 

POKE 123 , 3 thigh order byte = $03 

(New ROM users will substitute the otherPOKE locations.) 

That takes care of the Start of BASIC Pointer but all 
those other pointers are still up where they used to be when 
BASIC started at $0401. They must also be moved down. We 
could use POKE to accomplish this however a NEW command will 
do them all at once. Therefore execute a NEW and then print 
FRE(0). You should be returned 7362 bytes free, an increase 
of 195 bytes! This may not seem like much but when those few 
extra bytes are needed to add those finishing touches it 
could come in very handy. 

Now that the BASIC memory space has been increased does 
not mean that your program will automatically fill up this 
space. Besides, the NEW command removes your program 
anyways. One way to effectively use this modification is the 
following: 

1. Power-up and LOAD your program. 

2. Using UNLIST (described in Transactor #2, Vol. 2), record 
the program. 

3. Increase memory using the steps outlined above, and... 

4. Using the Merge procedure, also described in Transactor 
#2, bring the program back in by essentially merging it 
with empty space. 

Now the first 195 bytes of your program will be resident 
in wnat used to be the second cassette buffer. Remember, you 
no longer have a second cassette buffer until you either 
reset the machine or re-adjust the pointers so don't try to 
use it or your program will be clobbered! 

Sooner or later you w ill need to SAVE the program. 
However, this can no longer be done in the conventional 
manner. Take a look at the method used on the next page. 
Execute lines 100 through 220 directly on the screen exactly 
as shown. This is a modified SAVE. The SYS63153 accesses 
the tape write routines in ROM. 
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Now that a recording has been made there is one last 
problem. When the program is LOADed back into the PET, the 
Start of BASIC Pointer is not automatically set. It stays at 
0400 but our program starts at 033A. POKE 122,59 and POKE 
123,3 will fix this up. 

A Short Note on Tapes 

When a program is recorded on tape, the start and end 
addresses of that program are also recorded as part of the 
tape header. Therefore, when the program is LOADed, PET 
first looks at the start address and begins transfering bytes 
from tape into RAM. The first byte is transfered to the 
location specified by the start address. Increasing your 
memory using this method does NOT mean that your programs 
will LOAD to this extra space. However, they can be modified 
to do so. The information needed is in the article by Jim 
Butterfield on the first page of the first Transactor in Vol. 
2 . 


1O0 P0KE241■1 
110 P0KE247,53•P0KE248,3 
120 B=PEEK<124 >•P0KE229,B 
130 B=PEEK C 125 > P0KE23© .• B 
140 REM *** FIND SAVE NAME *** 

150 R$="" 

160 fit =STR*(PEEK<150>+256+PEEK(151> > 
170 H-v'AL < Hi> 

180 fl$="APPEND WEDGE" 

190 B=F'EEK (A ) : P0KE238, E 
200 E-PEEK<H+1 > ■ POKE249, E 
210 E-PEEK < fl+2> POKE250,B 
220 oVobo 15 j' 

230 END 
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Fr sns Van Du :i non 
Tor-on to 
30Sep7? 

TLOAD ERROR 

This note deals with program load errors on the 8K PET 
(Release 1 )* and how to recover from them* 

Within two days after getting my PET (Nov78)* I discovered the 
merits of back-up copies of programs and data files* 

All I did was press PLAY and RECORD when the message said to 
press PLAY! It was only some twenty seconds* but it was 
sufficient to wipe out the file header and make the file 
in a ccessible♦ 

Ever since I've made sure to Keep multiple copies* on the same 
tape for programs under* development* on a dedicated hack -up 
tape for programs that are more or less static* 

So also the Journal program that I was developing hack in July* 
The only thins was* I was also working on another program? which 
that I accidently saved on the wrong tape* Scratch Journal 

version 0*6* 

No real harm done* since I still had version 0*5* right? Wrong! 

It Just so happened that good old 0*5 had a load error* 

I tried Just about every thins* demagnetise & clean heads * 
both tape drives on my PET* LOAD vs STOP/shif t * freeze cassette ? 
rewind tape even 1 y * 1 oosen scr ews i n casse 11e hous :i n g an d r 3 avi oi 
several other PETs♦ Ab o u t the on 1 y 1 hing J did not. p3 ay wi th 
was head a 11 i g n m e n t (si n e e t h e t a p e h a d b e e n w r i 11 e n w i i h \ hi 3 a 
sllignment* it ought to he optima] for reading)* 

All to no avail* A load error I sot* and load errors I Kept 

on setting* 

Yet I Knew the d a i a w a s t hi e r e ! T h e r e w e r e s o hi e 3 5 0 0 c h a r ar t • e r a 

on that tape* most of which loaded correct ly ? hut could not 

LIST* RUN or SAVE* 

Since I s t i 1 J. n e e d e d t hi e J o u r * n a 3 p r o g r a hi * m v; c h o 3 c e w a s s :l m :• 3 c J 

salvage or r e**** d e ve 1 o p an d r e- cn ter f r o m me hi o r y * 

So* with a r i i n g e n u i i y h o r * n o f 3 a z i n e a a ( t r i a t h e i n g o n e 
of the prime ou a 1 i f i ca t i on s f or a 3.3 r r oar am hi er a ) * I sa 3 vaged ! 


From J i m B u 11 e r f i e 1 d ' s hi e m o r y hi a r ( s e c T h c T r a n a a c t, o r 9 v o 3 1 

-or The Best of Transactor* vol 3 ? pp 1-49-155 **• and vo3 9 13) 
and my own di sassemh 1 ed 1 i s t i n g of R0H ? J had a 3 n ce accu :i r* cd 
essential inf or m a t i o n o n p o 3 n t e r f i e 3 d a a n d r o u t :i i i e a ♦ 


First let me introduce the cast of characiers 5 


the 

f r o g r a m * i t s t a r * t a a t 3 o 

c 3024 



the 

file h ea 6 c r • * at 3 oo 634 

f or rare 3 * i or 

o n /. 4 ' 

V 1 ' S * ' 1 

tare 

the 

J. o a Ci s V- c> i * (• p o 3 n t i r » t hi c 

f i 3 o he adrr a t 

• • 1 i i 

3 

the 

1 o a d e n d p o j. n t i n t h e h c 

-.I <■ P ' r , !• 

<•». it i km i e- 

i 


the 

start of BASIC pointer* a 

. 4 1 1 -> ' 

.» kI\.. .* 



the 

e n d o f B A SIC / a t a i • t o f v a 

1 1 t> h 3 S F* ( * t i i ( ( 1 

. 4 1 , . ,~ 

•c • .1 \ 

3 24 

the 

e i i d o f v a r i a h 3. o a p o j n t e r 

-.4 1 ■-) 

C> K - .t a \ .• 



the 

star t o t a*va i 3 a* » .« 3 c a p a*ce 

poin t er- at 3 in. 

i on 


the 

N e x t Ins t r u c: t i o n P o i n t e r 
BASIC p r os r * am i 1 1 a 1 1 * uetic 

( N J» ’ / x . n a i- r r ( 

• ii 

( t‘.'v v v 

cr 








♦ the BASIC Line Number (BLN) that is pert of every statement 

♦ the zero byte that identifies t he en d of each BASIC 

statement 

♦the End Of Program (EOF) marker» which is a dummy NIP of 
which at least the second byte contains zero* 


After a normal load PET updates the end of BASIC pointer ? the 
end of variables and the start of available space pointers , 
based on the end of load address from the file header. 

Not so on a load error i the end of BASIC/start of variables 
pointer remains at 1024 (the start of BASIC pointer to be 
exact )♦ 

However» if variables are used they will be stored startin'; 
location 1024? :i.e. smack on tor of the pro.Aram. 

The following code will fix that (assuming LOAD from tare 11 )♦ 


?Pe(637 ) »Pe( 638 > 
237 17 


/ 

which results in the values being printed 
(remember? no variables may be used yet 
e x a m p 1 e 


Pol24*237JPol25»17- 
Po126*237JPol27»17- 
Pol28*237JPol29*17- 


set, end of BASIC/start of 
e n d o f v a r i a b 1 e r> 
s tar i- of a;vs j <>r> 1 e sp ece . 


S r.’i 1 ( ': > 


Whew ! Now we can use vsr iab1 es ? sinc:e tr\ey wi .1 1 now be 

starting si 4589* 


S '(.-oreo 


N e x t step is to r e b ti i 1 d t h e NI P f o i n i e r c h b i n > w h e r e t hr N J F 
preceding every BASIC statement points to the NTS"' before the 
next statement? until we set to the dummy NJP that marks 

end of prosrani* 

SYS 50224 is an operating system routine that does Just that* 

J i- a S 0 iTi C : • X -1 i <:•' l- ‘v r' l ‘ 

t h e e no o i a 
♦ inu s D i 

* e S ? t n e iff < •: S t \ i V O W 
SYS 50224 for a loop? and the routine wouJd store NIPs on top 
of valid data# If it does work ? however ? :i t ' s the hy far easier 
method# If it does not work Just reset the system rod try tho¬ 
ot her possible approach * 


at b 

aseti 

on r 

e r < 

a b t e 

ter s 

rep 

resen 

1* 

ei the 

6 of 

the 

en t i 

r e 

p r osr 

odue 

es s 

pu r i e 

! u s 

xer oc 


The alternative is t o w r i i e a o n e - .1 :i n e :i m m e d :i a t, e r- o i»t :i n e t h a t ■ 
will follow the exist i n s c r i a i n b b f a r a s r o s s :i h 3 e >- f i x a n d 

continue♦ 

The following routine will print a list, of MIP s i n aseendi ns 
order? with line n u rn b e r s < B i. N ) ? a 1 s o i n a s e e n d 1»«s o r c! e r # 

Any irregularity in either list indicates a load error # 


1 = 1025 


i n i t i. b 1 i. x e p o i n t e r l o f 1 r s t N J P 


FoK=lT0900 ♦ J = Pe( J K256*Pe< HI 
?I?JfBJI=JJNe 


D--r .r .i n \.i 

; • - r v \ .fix /i 


This results in 


list such 


1025 

1052 

10 

1052 

1066 

20 

1066 

1099 

21 

1099 

1120 

50 

1120 

1156 

60 







1156 585 70 

585 126652 12445 

BRK 


Clearly 1156*1157 do not contain a valid NIP* 

In this specific instance it appears that 1156*1157 are 
indeed the NIP (since the BLN looks to be correct >y but 
the NIP has been clobbered due to the load error* 
Frequently load errors are a result- of timing errors* 

This is where the read routine cannot har»d.1 e the var iation 
in tape sp e e d that it p e r ceives ♦ 

The r e s u 11 i s> c o m m o n 1 y t h a t t h e r e a d r o u tin e r e a d s n< o r e h i 
than wer e ac tua 11 y wi i 11en to the t-a p e ♦ Con ver se 1 y thc 
routine may actually read fewer* 


In my ease the er r or s oeras :i ona 11 y wer e wr onsi char acter s * 
or in some instar»ces one or more chararters missins or 
ex trs ♦ Ye t subse a uen t charaeter s wou 1 d st- i 3 3 by and 3 arae 
be correct* I n o i h e r wo r d s y i t w o r ;3 d a p p e ar t h a t t h e 
read routine can recosn i xe and synchronise wi th byte 
boundaries a s r e c o i • d e d o n t, a r e * 


The im p o r t a n t t h i n s h e r e i s i r»a t f r e e u e n 13 y a NIP a d d r e s s 
would be out by plus or minus one or two bytes y hut so 
would the n e x t, o n e a n d t h e n e x t ♦ 

To view wha t the i n t et r» a l r e? r e sc»»ta l- :i on of t-he r r osr am 
look s 1 i k e y a n i m ni e d J a t e r o u t i $ i e s u c h a s t-h e f o 3 3 o w i n s 
may be used I 


I =*■ 1155 •••• 1 o c o f 3. a s i v a 3. i d ( ? ) NIP y m i r i u s. 

f o r p r e s e n c e o f p r e c: e d i i i si x e r o 


to check 


F o K ::r -1 I 011 6 0 * ? P e ( K ) y ; N e - w o u 3 d i c s u 3 t i n 


0 132 4 70 0 145 3 37 32 4? 4E 

NIP BLN ON GOTO 1 0 C 

(sorry* not l h e i n t e r p r c t a t • i o n s h o w n o n t h c 


A O A A c. A / o 

T * » T -»' v.»V »‘ V > < * 


0 * * 


second 3 i nr) 


An other approach is to pr int the 3 ocati on number as we3 1. 
as its content* Tha t mak es i t mu ch e a a i er t-o see wha t i s 

soins on* 

FoK~IT0Ii60 J ?*■ R y K ' r ' Pe( K )y *Ne 

F ~ Feverse vio eo on 
••• r •' r e v e r ^ e v i d e o o f f 

This would show aI ternato]y a 3 ocation address Cin reverse 
video)? followed by it content* 


1055 0 

107; 


10 5 w i u 2 1 K -::: * / 

c; x. 

- >JU 


***** .t V / 


Tnis f aci 1 1 tai-e s c»iec k 111 a cne »< .i F*‘ ac cu a 3 .• r• *. %;i-i on *; :■ <• • i. n • • t• 

the exr e c t e u on e ( a a con (<■ .i n c».» .». 11 t! n r »■ (• c c».».».*» a i\ I F / * 


A 1 ur cner var i a- c j. c»ii (ri \ n.» v- i-*.• j i• ( 3 uor - cw(» ( ui r>or 

c h a l a c c e r ♦ 
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FoK= I TO I + 60 J ? ' R' K ' r c 1' Pe< K ) ' c 1 ' i i Ne 


cl - s single cursor-left character 

This Sets rid of the cursor-right the PET inserts after- 
all numbers* Not only does it compress the listing? it 
also allows reuse of the statement (such as after a POKE ? 
or for a different ares) without occasional didits from 
the previous data showing through. 

If an individual NIP is wrong? the most expedient solution 
is to POKE in a new value* 

If? however? several subsequent NIPs are all out by 
the same amount? moving over the rest of the program 
may be indicated* 

Visual inspection will have to indicate which hates to 
suppress? or where to open it up* 

Remember the main concern right now is to set the program 
in such share that it can be LISTed and updated normally. 

On compression? as in the following routine? hates are 
copied into lower numbered locations. Thus if location 1 1 .1 2 
is stored in 1111? 1113 in 1112? 1114 in 1113? etc*? 
location 1112 has already been used by the time .1113 
is stored into it? and thus may be safely clobbered 
For example! 


Fol -1111T04589 i J=Pe( 1+2 )!PoI?.J!Ne 


The +2 in the PEEK command causes everything to he 
moved over ( 'to the left' ) by two bates* 

Note that merely changing the +2 to -2 will not move everythin 
two positions to the right. 

Instead the leftmost two characters will, be propagated through 
the entire section being moved* In the above example (with the 
+2 changed to -2) byte 1111 would be picked up first? and stor- 
in 1113. Then 1112 would be stored in 1114. Next 11.1.3 would he 
picked up to be stored in 1.115* Put 11.13 contains the value 
from 1111 ba now? and that is what would be deposited in 11.15* 
Thus 1111 ends up in 1113? 1115? 1117? etc.? with .1112 ending 
up in all the inbetween locations. 

To handle such a shift- right properly? the move has to start 
from the right? e*g.; 

FoI = 4589T01111 STEP-1 l J=Pe< 1-2 ) 1 Pol ?,! i Ne 

That essentially sums up the totality of this lechni m>e for 
s a 1 v a gins p r o 3 r a m s f r o m 1 o a d e r r o r s . 

I do? however? sincerely hope that you'll never have to use it 







The IE5E-U88 Bus Jim Butterfield, Toronto 

A narallel interface designed to exchange data with selected devices 
connected to the bus. 

Many devices may be connected at the same time, but only the one 
that has been selected will send or receive data. For example, 
two printers and a disk unit could be connected to a bus; the Basic 
program would arrange to send to or receive from the various devices 
as desired. 

Selection works by means of a "calling" system. Before sending data, 
the computer first sends a selection character, which commands the 
appropriate device to "listen". If the device is connected, it will 
acknowledge the command. Now the data is sent; each byte is 
acknowledged by the receiving device. Finally, the device is 
disconnected by an "unlisten" command. To receive data, the 
computer instructs the appropriate device to "talk". It then 
accepts data until the device signals "end of data", afc which time 
the computer sends an "untalk" command. 

Commands are distinguished from data by using a special line called 
ATN (attention). If the ATN signal is low (meaning time), the 
information being sent is a command: talk, untalk, listen, or unlisten. 
If the ATN signal is high (meaning false), the information being sent 
or received is data. In this system, only one direction is used: 
the comouter sends ATN and the devices receive it. When ATN is low. 
all devices receive the commands, to see if they are being selected. 
When ATN is high, only the selected device will accept data. 

Another line, called EOI (end or identify) is used to signal the 
last byte of data. It works in both directions: if the commuter 
is sending, it signals EOI low (meaning true) with its last character; 
if the device is sending, it signals EOI low if it has no more data 
after the character it is sending. 

When a device sends to the computer, it delivers each character only 
when invited by the computer. Similarly, the sending computer 
delivers characters only as fast as the device is ready for them. 

This flow is controlled by a "handshake" procedure. 

An example of selection: When 3asic executes OPEN 3,k, the IKEE-U88 
bus sets the ATN signal low and transmits hexadecimal 2k to the data 
lines, instructing device #k to listen. If the device does not answer, 
Basic will return either DEVICE NOT PRESENT (ST-128 decimal) or 
WRITE TIMEOUT (ST=*l). Subsequently, when the command PRINT#3, "HELLO" 
is given, the ATN signal is again set low and hex 2k transmitted 
to instruct to listen; then ATN is set high, and the characters 
H, E, L, L and 0 are sent, with EOI set low during the transmission 
of the 0 character; finally, the ATN is set low and hex 3F is sent 
to cause the device to unlisten. Note that we haven't closed the 
file yet; but we have (temporarily) disconnected the device. 
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Osing CMD on the IE £5-h88 Bu3 


CMD does two things: 

—it oroens the appropriate device to "listen”; 

--it will divert output, normally directed to the screen, 
to the IEEE-U88 bus. 

Both CMD activities are cancelled in any of three ways: 

—preferred: when the bus is addressed with a normal PRINT# command; 
—when any INPUT or GET is performed; 

—when a Basic error is encountered. 

It is best to avoid CMD within Basic programs, since any use of INPUT 
or GET will cancel it, and the programmer will have to arrange to 
repeat the CMD as necessary. Use PRINT# wherever possible. CMD is 
most useful in obtaining program listings. The preferred method: 

OPEN h,U (identify the printer as device # U) 

CMD U (open the printer to listen & redirect outout) 

LIST (do the listing) 

PRINT#U (cancel the CMD functions) 

CLOSE h (close the file) 

Never close a file until you have first cancelled the CMD command. 


IEEE-L38 Handshake: a brief tech nical d escription 

The same handshake procedure is used for both command and data 
transmission. 

The talker uses the DAV (Data available) line to indicate that valid 
data has now been placed on the bus. The listener uses two lines: 

NRFD (Not ready for data) to indicate that it is not yet willing to 
receive data; and NDAC (Data not accepted) to indicate that it has not 
yet taken data from the bus. 

Transfer of data takes place in the following manner: 

1. The talker initially places DAV high (meaning false) to indicate 
that data is not being sent yet. The listener will have NDAC low 
(meaning true) to indicate that no data is being received. 

If the listener is still working on something (say, printing the 
previous character) and can't accept data yet, it will set 
NRFD to low (true), meaning it's not ready. 

2. The talker checks the NRFD and NDAC lines for both high (meaning false). 
If they are both high, something is wrong. If the computer is the 
talker, it will send DEVICE NOT PRESENT. 

3. The talker places its data on the bus, but doesn't signal DAV low 
for data available until it sees the'listener's NRFD is high, 
which signals that the listener is ready to receive data. 

The talker will wait forever - there is no timeout. 
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1|. The data is ready, so the listener accepts and stores it. 

Then the listener sets NRFD low (true) and NDAC high (false) 
to acknowledge its receipt. The listener has a time limit 
on this activity: if it doesn’t complete in 6U milliseconds, 
the talker will flag TIMEOUT ON WRITE. 

5. The talker responds to the acknowledgement by setting DAV high, 
meaning that the data is no longer offered, and then clearing 
the data bus. 

6. The listener detects the change in DAV, and realizes that its 
acknowledgement has been seen. It returns NDAC to low, completing 
the character exchange cycle. There is a time limit here: 

if the listener doesn’t see DAV go high within 6U milliseconds, 
it will flag TIMEOUT ON READ. 
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The following is a machine language subroutine that will 
copy the contents of the screen onto 2022/23 printers. It 
resides in the second cassette buffer and could be 
incorporated very neatly into any BASIC program where a hard 
copy of the screen might be required. 

. SCREEN FRIHT ROUTINE 







UnLL 

WITH 

SVS 826 


6:1 

3ft 





*= 

$033 ft 


03 

•-j H 




POINT 

— 

$1F 


6:1 
M 'C 

3ft 




Rr LfiU 
mi ii- it 

= 

f-21 

■t *"• 


M .j; 

0:2 

3ft 




CR 


TOD 


0:2 

3ft 




DEVICE 

- 

fD4 


0:2 

3 hi 




CMB 

= 

$E0 


62 

3ft 




PRINT 


$FFD2 


0:2 

3ft 




SLISTN 

~ 

f F0Efl 

;LISTEN TO IEEE 

0:2 

3ft 




ftTNOFF 

= 

TF12D 


0:2 

3ft 




BUSOFF 

= 

$FFCC 


0:2 

3 ft 




SCREEN 

— 

$'3000 


0:2 

3ft 




CASE 

= 

$E84C 

ijRftPH IU3 UR LU 

0:2 

3ft 

ft 3 

80 


SCPRT 

LDfl 

#>SCREEN 


0:2 

3C 

85 

28 



ST ft 

P0INT+1 


0:2 

3E 

R8 

00 



LDfl 

ttCSCREEN 

;SET POINTER TO 

0:2 

40 

«-cr 
OJ 

IF 



ST ft 

POINT 

;START OF SCREEN 

0:2 

42 

h8 

04 



LDfl 

#4 


0:2 

44 

85 

E0 



ST ft 

CMD 


02 

46 

85 

D4 



ST ft 

DEVICE 


02 

48 

20 

Eft 

F0 


JSR 

SLISTN 


02 

4E 

20 

2D 

FI 


•JSR 

FiTNOFF 

;0PEN PRINTER 

02 

4E 

08 

13 



LDfl 

#25 

;25 LINES 

0:2 

50 

o5 

Cm Cm 



ST ft 

COUNT 


0:2 

52 

fly 

0D 


LINE 

LDfl 

#CR 

;START NEW LINE 

0:2 

54 

85 

21 



STfl 

RFLflO 

;RVS-OFF 

0:2 

56 

20 

D2 

FF 


JSR 

PRINT 


0:2 

58 

R8 

11 



LDfl 

#$11 

SHI FT FOR L/C 

0:2 

5E 

flE 

4C 

E8 


LDN 

CASE 


0:2 

5E 

E0 

0C 



CRN 

#12 


0:2 

60 

D0 

02 



BNE 

LOWER 


0:2 

t-2 

Fi3 

31 



LDfl 

#$31 

;SHIFT FOR GRAPHICS 

0:2 

64 

20 

D2 

FF 

LOWER 

JSR 

PRINT 


0:2 

67 

flu 

00 



LDV 

#0 


0:2 

68 

El 

IF 


MORE 

LDfl 

(POINT),V 

;SCREEN CHAR 

0:2 

6B 

28 

7F 



AND 

#$7F 

;STRIP RVS 

0:2 

6D 

fifi 




TAN 


;STORE 

0:2 

6E 

El 

IF 



LDfl 

(POINT),V 

; CHECK RVS 

0:2 

70 

45 

21 



EOR 

RFLflO 

;SflME AS LAST CHRPRINT 

0:2 

1 £- 

10 

0B 



EF'L 

SAME 


0:2 

74 

El 

IF 



LDfl 

(POINT),V 


0:2 

76 

r.tr 

OJ 

21 



STfl 

RFLflO 

;L0G NEW RVS STATUS 

0:2 

i' O 

29 

80 



AND 

#$80 


0:2 

7ft 

48 

32 



EOR 

#$32 

; BUILD RVS ON/OFF 

0:2 

7C 

20 

D2 

FF 


JSR 

PRINT 


0:2 

7F 

8R 



SAME 

T/ft 


; RECALL PRINT CHAR 

0:2 

80 

C3 

20 



CMP 

#$20 


0:2 

rj cL 

E0 

04 



ECS 

NOTflLF 


0:2 

84 

03 

40 



ORA 

#$40 

; CHANGE ALPHA ZONE 

0:2 

86 

D0 

0E 



BNE 

SEND 

BRANCH ALWflVS 
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q : 

**» o i”i 

C9 

40 

@: 

38A 

90 

0A 

Q38C 

C9 

68 

0: 

BSE 

B0 

04 

0: 

390 

09 

80 

0: 

392 

D0 

02 

0: 

394 

49 

C0 

0: 

396 

20 

D2 

0: 

399 

C8 


0: 

39 A 

C0 


0 

39C 

90 

CB 

0 

39E 

05 

IF 

0 

3A0 

69 

i -n 

0 

3A2 

C; cr 

IF 

0 

3A4 

90 

02 

0 

3A6 

E 6 

20 

0 

BAS 

L 6 

22 

0 

BAA 

DO 

AS 

0 

3 AC 

A9 

0D 

0 

3AE 

20 

D2 

0 

3BI 

4C 

cc 


CMP 

#$40 

BCC 

SEND 

CMP 

#$60 

BCS 

GRAPH 

ORA 

#$80 

BNE 

SEND 

EOR 

#$C0 

JSR 

INY 

PRINT 

CPY 

#48 

BCC 

MORE 

LDA 

POINT 

ADC 

#39 

ST A 

POINT 

BCC 

$+4 

INC 

POINT+1 

DEC 

COUNT 

BNE 

LINE 

LDA 

#CR 

JSR 

PRINT 

JMP 

$FFCC 


HQTRLF 


GRAPH 
FF SEND 


FF 

FF 


90 REM BH 

SIC 

LOADER 

FOR 

SCREEN 

Pk 

i 00 

FOR J 

=: 8 

26 T O 

947 



i 10 

READ 

fi : 

POKE J 

, hi 



120 

NEXT 






200 

DAT A 

1 69 .• 

128, 13 

, "«'uL 

, 168,3, 1 

2 

210 

DATA 

169, 

4 , 1 33 • 

1 76, 

i -jo >! , lL ]. ti. > 

_T> 

228 

DAT A 

248, 

32,45, 

241 , 

169, 25, 1 


230 

DATA 

1 69 .■ 

13,133 


•2> d , c.'. I 0 , ,.:1 

l:: - lt 

240 

DATA 

17,1 

74,76, 

cl'. •_"* , 

224■ 12, 2 

03 

250 

DATA 

1 69, 

145,32 

, 2 1 0 

, 255, 160 

, 0 

2 6 0 

DATA 

•31 • 4 

1,127, 

1 70 

1 27 .. j. r-> 

> 

270 

DATA 

11,1 

77 ■ 3 J. , 

1 33, 

33,41,12 

8 . 

280 

DATA 

1 46" ■ 

32, 21 0 

, 255 

, 1 33,20.1 


290 

DAT A 

1 76, 

4,9, 6 4 

... 2*38 

, 14 201 ■ 

6- 4 

300 

DATA 

1 0,2 

01,96, 

i 76 

4 3,128 

2.0i 

31 0 

DATA 

73, 1 

32 » 32' • 

2 1 O. 

.255, 2 20 

1 3 

320 

DATA 

1 44, 

203, 16 

5, 3 1 

.135,39■ 

j. 

330 

DATA 

144 , 

2,230• 

32, 1 

98 ■ 3>4 ■ 2. 9 

• 

340 

DATA 

1 69, 

13,32 , 

2 1 u, 


04 


BRANCH ALWAYS 

PRINT CHAR 

; LINE FINI SHEDF'R I NT 
;N0, DO IT AGAIN 

;YES.- MOVE SCREEN POINTEF 
;TO NEXT LINE 

;OME LESS LINE 
BACK FOR ANOTHER 

CLEAR BUS $, QUIT 


IN" ROUTINE 


, 1 :: 6 
, 34 
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Delete Rest of Instructions in Prosrem 


One of the more exciting* albeit undocumented^ instructions 
on the PET is the 'Delete Rest of Instruct!onsin Program' 
or DRIP instruction* 

If you haven't yet had occasion to use it* consider yourself 
lucky * 


Under certain conditions the updating and replacing of a BASIC 
program instruction results in the disappearance of that and 
all subsequent instructions in the program* As this seems 
to happen only after extensive (and not as yet. saved) program 
changes have been made* the result is a lot of excitement. 


This note describes what happens* when* how to recover from it* 
and covers a technique that seems to prevent it* hut since I'm 
not sure how or why I can't be certain that the preventative 
measure always works. 

The content of the note applies to Release 1 of the PFT RK system* 
the 'old ROM'♦ 


The only cause that I am certain about is an internet of a 
program occurs that is using the PRINT# to write to the IEEE bus, 
(Where my printer sits as device no 4.) 

Any subsequent attempt to change the program frequently 
results in a 'DRIP'. 

However* if I enter a 'CLR' command in between or cause an 
error* such as a RUN c o m m a n o wit- n an in v a 1 i o o p - e r a n o > a: If RIF 
does not arize. 


The symptoms are as follows, BASIC does somehow not recognize 
th o t the newl y e n ter ed ( u p da i ed ) a ta i • emen t ma t-rhe a an p x :i a id n a 
number* BASIC therefore treats the updated instrue id on as a 
new one 9 and moves over the rest of the pros ram to make room 
to insert this 'new' instruct!on♦ 

However? BASIC m a Res o t h e r e r r o r s ? t hi a t a r e e v e n m o r e s e v e r e * 

It inserts a zero in the hi s h • o r 6 e r < s e c o n d ) p o s :i t ■ t o n of t h e 
N e x t I n s t r u c t i o n P o i n t e r ( NIP ) o f t h e f i r s t o r c 11 r r e n c e o f 
the updated ins t r u c t i o n ? t h u s s i sn a .] .1 i n b t he en d of p r o b r a m < 

The part- of the prosr a m t h a t hi a s he e n mo v e d t o a 1J o w f or t• h e 
insert of the 'new' i n s t r u r t i on ? h«as n o t • hiad :i t • s p o j n t.er s* 11 p d a t ed < 

For tunstely ? BASIC.* leaves tne eno of I• ASIC*/ st.a r t• of var i a h t f • 
pointer intact? so variables can he used * 

The solution of this p r ob J em i s ac1,ua J .1 v* c i; :i t• e s:i m p .1 e ? 

♦ remove the spurious zero 

♦ rebuild the pointer-chain ♦ 

I had visions of sop h3 s t :i. ca ted p r orlr arn .1 os :i c to r econ s i r i» r I 
poi n ter s based on the mini mum an d rfiax :i mt*iY« rm mher of hv 1 1 es 
p e r instruction? zero b y t e s ? r e 1 a t :i o n s h :i p s h e i - w e e i s s l a t ■ e m c n i • 

numbers and visual inspection* 

But once more ? .Ji m But ter fi cJ d to thie r esr\\e ! H:i s } :i s t o f 
routines identifies one c: a IJ e d ' C o r • r e c i. s i h e r h a :i n :i n s 
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Technical Comment on FOR/NEXT Loop Structures 


Jim Butterfield, 
Toronto 


Recent remarks on popular BASIC implementations indicate tnat 
difficulties may be encountered if the programmer jumps out 
of a FOR/NEXT loop. 

This would be very serious if true. The programmer doing a 
table search would be required to continue scanning the table 
even after finding the item he wants; or to use questionable 
practices such as meddling with the loop variable wnile still 
within the loop. 

Fortunately, it's true only for a few complex situations - 
and these are easy to fix if you understand how the dynamic 
FOR/NEXT loop works. (Dynamic loops are those set up during 
an actual program run, as contrasted to pre-compileo loops 
wnich are checked out before the actual run starts). 

When a dynamic interpreter, such as Microsoft BASIC, 
encounters a statement such as FOR J= ... it sets up internal 
tables to manage the loop. These internal tables contain 
such things as: where to return if a NEXT J is encountered; 
the identity of the loop variable (in this case, J); whether 
the loop is counting up or down, etc. 

These tables will remain until one of three things happens. 
If the loop goes through its complete range (by encountering 
a suitable number of NEXT J statements) ; if a new FOR J 
statement is found; or if a higher priority loop is 
terminated for either of the previous reasons. 

The last rule is very sensible, and it's worth a closer look. 
Suppose we have set up a sequence of commands such as: 

FOR 1= ... : FOR J= ... : FOR K= ... 

and suppose the computer, while dealing with these three 
loops finds a new FOR 1= ... statement. It very wisely says, 
in its own computerese, "OK - looks like the big loop is 
being restarted; so the little ones are finished too". And 
it promptly terminates the J and K loops, removing the tables 
from its memory. 

Exactly what we want - but there are a couple of hidden 
gotchas that the user must know about when he gets into 
tricky coding routines. 

The easiest one to spot is the situation where every loop has 
a different variable name. The first loop is, say, FOR A ... 
the next on, FOR B ... and the programmer continues through 
the aipnabet with each loop. His idea is good: he can 
analyze how each loop has behaved, for each variable remains 
untouched for his examination. But each time he jumps out ot 
a loop, the loop tables remain in memory, using up valuable 
text space. He'd be much better off to give at least his 
outer loops the same variable name, and reclaim that space. 

The second problem spot is a little more subtle, and an 
example would best illustrate it. 
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Here's a simple program to input a string, extract the 
individual words (eliminating single or multiple spaces), and 
print them: 


100 INPUT S$ get the string 

110 K=1 mark start of string 

120 FOR J=K TO LEN(S$) 

130 IF MID$ (S$,J,1) <> " " GOTO 150 skip spaces 
140 NEXT J 

150 IF J > LEN(S$) GOTO 900 
160 FOR K= J TO LEN(S$) 

170 IF MID$ (S$,K,1) = " " GOTO 200 scan to space or end 
180 NEXT K 

200 PRINT MID$ (S$,J,J-K) 

800 IF K <= LEN(S$) GOTO 120 
900 END 


The program works quite well and isn't hard to follow. It 
should be noted that if either the J or K loops run to 
completion, the variable will have a value of LEN(S$)+1; this 
is intended and allowed for in lines 150 and 800. 


Berore we extend this program into catastrophe, let's note 
one thing: by the time the program reaches line 200, both the 
J and K loops will still be open most of the time - we 
"jumped out" of both of them. No real problem; when we go 
back to 120, the new FOR J ... will cancel them both. 

Now let's get into trouble. We may be writing a little ELIZA 
here, and we want to check the word we've found against a 
table of keywords so as to pick a suitable reply. We'll 
assume a table of twenty keywords, and start to build a 
search loop. Replacing line 200, we start a new loop: 

200 X$ = MID$ (S$,J,K-J) get word 

210 FOR 1= 1 TO 20 


Our loop is now three deep - J and K are still considered 
active, remember? No problem with three-level loops; we're 
still OK. 

But here's where we might get clever and wreck everything. 
We need to preserve K - that's where our search for the next 
word will start. But J has served its purpose, and could be 
used again, right? Well .. let's see. 

This table of 20 words is really a double table. It contains 
pairs of words such as "I", "YOU", or "MY", "YOUR". To make 
our computer talk we must spot a word from either column, and 
switch in the word from the opposite column (so that 
"I HAVE FLEAS"). So we need one more loop to search over the 
two columns. 
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Let's be clever and use J, since we have decided that it 
isn't needed any more at this point. We code: 

220 FOR J=1 TO 2 

230 IF X$=T$(I,J) THEN X$=T$(I,3-J):GOTO 400 swap word 
240 NEXT J 
250 NEXT I 

400 PRINT X?;" repeat word 

Suddenly everything stops working, and the whole world 
tumbles down around our program. What happened? 

Let's stop and analyze. Just before executing line 220, the 
computer had three active loops, with variables J, K, and I. 
Now it reaches line 220, and what does it see? A loop Based 
on J, the "biggest" loop! So what does it do? It cancels 
the K and I loops, of course, and starts a new J loop. 

When we reach line 250, the computer sees NEXT I - but it no 
longer has an active FOR 1= loop, and you get a NEXT WITHOUT 
FOR error notice. 


The rule here is slightly more complex, but not too tough. 
If you use J as an "outer" loop variable, never use it for an 
inner loop. If we reversed I and J in the coding from 210 to 
250, we'd have no problem. Try to think in terms of the 
hierarchy of loops, and you can make sure that a given 
variable is used only at its proper hierarchy level. 


Let's try to put the rules together and create a tiny ELIZA, 
polishing up some of the coding as we go. You'll have fun 
adding your own features to it. 


100 DIM T$(l,4) two by five array 

110 DATA ME,YOU,I,YOU,MY,YOUR,AM,ARE,MYSELF,YOURSELF 

120 FOR J=0 TO 4 

130 FOR K=0 TO 1 

140 READ T$(J,K) 

150 NEXT K 
160 NEXT J 
170 INPUT S$ 

180 Kl=l 

190 FOR J= K1 TO LEN(S$) 

200 IF MID? (S$,J,1) = " " THEN NEXT J 
210 J1=J 

220 IF J > LEN(S$) GOTO 900 
230 FOR J= J1 TO LEN(S$) 

240 IF MID$ (S$,J,1) <> " " THEN NEXT J 
250 K1=J 

260 X$ = MID? (S$,J1,K1-J1) 

270 FOR J=0 TO 4 
280 FOR K=0 TO 1 

290 IF T$(K,J) = X? THEN X? = T$(1-K,J):GOTO 320 

300 NEXT K 

310 NEXT J 

320 PRINT " ";X$; 

330 IF K1 <= LEN(S$) GOTO 190 
340 PRINT "?" 

900 GOTO 170 




Note that the outer most loop is now always called J, the 
next down always K. I've tightened up the array to use the 
zero rows and columns to save memory; and the search loops 
are a little faster. 

Even though the program is riddled with premature loop exits, 
there are no problems. Just observe a few simple rules, and 
you'll have efficient and trouble-free loops. 




Attention Multi-Peripheral Users 


It has been found that when more than one peripteral is 
connected to the IEEE-488 buss, a slight problem may occur 
snould one device be ON and the other OFF. Take for example 
the following sequence of events: 

PET ON 

Printer OFF 

Disk OFF 

Type: OPEN 1,8,4," 0:DISKFILE , S , W " 

PET responds: 7DEVICE NOT PRESENT ERROR 

This is of course what you would expect. Now power up the 
Printer, leaving the disk unit OFF. 

Type: OPEN 1,8,4," 0:DISKFILE , S , W " 

PET responds: READY. 

But the disk is OFF or essentially "NOT PRESENT". Therefore: 

PRINT#1,"FILE DATA" 

...will result in lost data. 

There is, however, a test that can be made to protect 
against lost info. The status word, ST, is set to -128 
whenever the above situation occurs. Therefore the following 
test could be included immediately after the OPEN statement: 

IF ST < 0 THEN PRINT "DEVICE NOT PRESENT" 

Don't be alarmed since any programs using disk file 
access are usually loaded from the disk, the disK will be 
turned ON anyways and the above situation will probably never 
be encounterd. 
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Inside the 20U0 Disk Drive 


Jim Butterfield, Toronto 


Yes, you can look at the programs inside the 2OU0. But unless you're 
strong in machine language - and have a bit of hardware background - 
it won't make much sense. 

There are two processors in there. One looks out toward the PET 
I'll call it the IEEE processor; the other looks in toward the disk 
mechanics .. this one I'll call the disk processor. Each processor 
has a completely different set of programs. The two processors talk 
to each other by sharing a little memory space: about UK of RAM 
is common to both ndcfoprocessors. 

The IEEE processor is relatively easy to look into. You have the 
M-R, or memory read, command which allows you to look at the whole 
6UK memory space of this processor. Not all of this is actually 
fitted with memory, of course. As far as I can tell, ROM occupies 
hex locations E000 to FFFF. There's RAM in zero page; and the 
RAM which is shared with the disk microprocessor is in hex 1000 to 1FFF. 
The 6532 PIA chips seem to be in ths addresses $0200 to $03FF. 

To analyze a completely unknown 650X program, you must start by 
inspecting fra***** locations $FFFA to $FFFF. This gives you 
the three main vectors, for NMI, Reset, and INT. As far as I can 
tell, NMI isn't used - the vector points at non-existent memory. 

Reset is of course used; in my 20U0 it points at FU80, and that's 
where the main code for initialization begins. It looks to me 
as if the interrupt line must be kicked by the IEEE ATN (attention) 
line: when I follow the vector (FDDE) in my machine, it looks like 
an IEEE handshake is taking place. 

That's all vefy well for the IEEE processor, but how can you get 
a look at the inner, disk processor? I had trouble with this one. 
until one day I discovered that the IEEE processor can download the 
disk processor - via the shared RAM - and make it execute this new 
code.' So all that's needed is a little program to tell the disk 
processor to copy part of its memory to the shared RAM space, 
where it can be examined by using the M-R command. 


Commodore Systems, 3370 Pharmacy Avenue, Agincourt, Ont. (4-16-499-4-092) 
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I couldn't get this to work, however, until I discovered the vital 
missing link. The shared RAM, which is seen at locations 1000 to 1FFF 
by the TREE processor, is seen in a completely different location 
by the disk processor.' ..in this case, hex 0U00 to 13FF. 

The hardware just "maps" the memory into a different location. 

I might never have spotted this if the memories had not overlapped? 
but a little rummaging around and tearing of hair showed that my 
early programs seemed to be putting data into the wrong buffer. 
Eventually, the penny dropped, and the system became clear. 

I'm far from being able to give details about the inner secrets of 
the 20U0. But with the enclosed DISK PEEK program, you too can 
rummage around in there - in either processor's memory space - 
and come up with interesting data. 


100 F'R I NT" riD ISK MEMORY DISPLAY JIM BUTTERFIELD" 
110 DATA77, 45,87,0 .• 18, 16,162,0, 189 
120 DATA157,64,U6,282,224,16,208,245,76,198,254 
130 FORJ=1T09 •• READX: CT=CT+CHRT ( X >: NEXTJ 
140 FORJ=1TO11:READX = DT=DT+CHRT( X > =NEXTJ 
150 PR I NT "iir HERE ARE TWO PROCESSORS : " 

160 PRINT" 1> THE IEEE PROCESSOR;" 

170 PRINT" 2) THE DISK PROCESSOR;" 

180 INPUT "WHICH DO YOU WANT TO PEEK (1 OR 2)";D 
190 PRINT"INPUT MEMORY ADDRESS" 

200 PRINT"IN HEXADECIMAL•"=OPEN1,8,15 

210 PRINT" >l»l H" 

220 INF’UTZT 

230 PR I NT " H"; : IFLEN C ZT > O4THENG0T0210 
240 FORJ=1T04:V=ASC(MIDT(ZT-,J >> 

250 IFY<58THENY=Y-48 


260 

270 

280 

290 

300 

310 

320 

330 

340 

350 

360 

370 

380 


IFY>64THENV=Y-55 

IFY<0ORY>16G0T0210 

V C J >=V • NEXT J : K=0 ■■ PR I NT " >»»»»!"; 

ONDGOTO300,320 : GOTO180 

IJ=Y C 3 > * 16+V ( 4 >: V=Y < 1 > if: 16+V < 2 > 

GOSUB360 : GOT0210 

PRINT#1,CT;CHRT(YC3 >f16+Y<4 > >;CHRT<Y( 
PRINT#1,"M-W";CHRT(4 >;CHRT(16 >;CHRT(1 
PRINT#1,"M-R";CHRT(4);CHRT(16): GET# 1, 
U=64 : V= 18 : GOSUB360: G0T0218 
PRINT#1,"M-R";CHR$<U>;CHRTCV > 

GET#1,XT:IFXT=""THENNT=CHRT(0> 

PRINT" "; : X=ASC(XT>/16 


1 > f 16+Y ( 2 > >; DT 
>;CHRT(224) 

XT:IFXT=CHRT < 224 > GOT0348 


390 FORJ=1T02:XX=X: X= <X-XX>:f 16- IF 
408 PR INTCHRT (XX+48 >; '• NEXT J 


9THENXX=XX+7 


418 U=U+1:IFU=256THENU=0■V=V+1 


420 K=K+1:1FK-C8G0T0360 
438 Y<8>=0:Y(4>=Y<4>+8:J=4 

448 IFY(J> >15THENY(J>=V <J >-16-J=J-1:Y(J>=Y<J > +1:G0T0448 
458 PRINT:PRINT" "; =F0RJ=1T04 : V=Y(J>:IFY>9THENV=Y+7 
468 PRINTCHRT(V+48 >;:NEXTJ•PRINT"H":RETURN 


mm THE LAST THREE ITEMS IN LINE 120 (76,193,254) MAY BE CHANGED 
IF NECESSARY TO A RESET SEQUENCE OF 188,252,255 mm 
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Printer Formatting 


There has been a bug detected with the formatting 

feature of the 2022 and 2023 Printers but fortunately, Kim 

Lantz of North Sydney, Nova Scotia, has found the fix. 

It seemed that setting up the first format was no 

problem, but changing to a second format was. When PRINTing 
to the printer, the last character to be sent to a line is a 
CRLF. This is done for obvious reasons but, the Carriage 
Return is printed on the current line and the Line Feed is 
printed on the next line. The Line Feed character is of 

course not printed on the paper but the printer "sees" it as 
the first character of the new line and when the printer is 
anywhere but the absolute beginning of a line, it doesn't 
like changing the format. 

Therefore, anything that is output to secondary address 
1 or the printer should be followed by... 

;CHR$(13); 

For e.g. OPEN 1,4,1 

PRINT #1, X;CHR$(13); 

PRINT #1, "PET";CHR$(13); 

...especially when the format string is about to be changed. 
This is also true for secondary address 0. 

The above can of course be shortened by first equating 
R$ to CHR$(13) and using R$ in place of CHR$(13). Also the 
first semi-colon is not necessary when preceeded by a closing 
quote or another string variable but is necessary when 
following numeric variables. 

However, the general idea is to keep the printer in the 
O'th position after a carriage return when the format string 
is to be changed. 
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Bits and Pieces 


The IF..THEN statement can be very useful in avoiding 
certain unexpected hazards. Two in particular are 1) 
argument outside range and 2) dividing by zero. 

The ON..GOTO statement has a limited range on its 
argument; 1 to 255. Zero causes execution to drop through to 
the next line but values negative or over 255 will cause an 
error and a forced break. Protecting against this is easy 
and often a good idea. 

500 IF X > -1 AND X < 256 THEN ON X GOTO... (GOSUB) 

501 REM -CODE FOR X = 0 

Executing a 'THEN' causes PET to interpret the code 
following as a "new line". A 'THEN' can therefore be 
followed by any BASIC statement including another 'IF..THEN'. 

Dividing by zero will fail for obvious reasons. 
Preceeding a possible trouble spot with a denominator test 
will protect against 7DIVISION BY ZERO ERROR. 

600 IF D <> 0 THEN IF N/D <> 0 THEN 
IF N2/(N/D) > 1 GOTO 880 

Another hidden gotcha that has been known to cause bald 
spots is the peculiar behavior of the FOR..NEXT loop. Code 
within a FOR..NEXT loop will always execute at least once 
regardless of the initial loop counter values. 

700 IF J > 0 THEN FOR X = 1 TO J:...: NEXT 

...will guard against unwanted looping. Only one problem; 
the entire loop must be squeezed into one line otherwise 
GOTOs must be used. 

One further note; a STEP size of zero will cause endless 
looping. Depending on the extent of STEP use, testing of 
STEP variables might be advisable. 


Bullet-Proof INPUT 


As you know, INPUT allows the cursor control characters 
to be typed which can really foul up a program especially 
when user infallibility is of importance. The following 
subroutine could substitute for INPUT: 

5000 POKE 167 , 0 
5010 A$ = "" 

5020 GET B$ : IF B$ = "" THEN 5020 
5030 IF ( ASC ( B$ ) AND 127 ) > 31 THEN 
PRINT B$; : A$ = A$ + B$ 

5040 IF B$ = CHR$( 13 ) THEN POKE 167 , 1 : RETURN 
5050 GOTO 5020 
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5000 


The only drawback using GET over INPUT was that a 
simulated cursor was required. POKE 167 , 0 (548 in 

old ROM) conveniently turns the PETs cursor on. 

5010 Sets A$ (the input string) to null string. 

5020 Standard "GET loop". 

5030 This test masks out all of the cursor control keys, 
allowing only numeric, alpha and graphics to PRINT. 
5040 Test for 'RETURN' key, yes...turn cursor off, exit. 

Extra tests could be inserted between 5030 and 5040 to 
include cursor left/right and/or delete. Also, a character 
counter might be incorporated to limit the input string 
length. 


Floating Binar^ 


The following program by Jim Butterfield shows the true 
value of a decimal floating point number as stored by PET in 
floating binary. The program illustrates how some decimal 
values cannot be represented in binary exactly. Try values 
of 1.1, 1.2 and 1.7 


100 PRINT : INPUT V 
110 PRINT INT(V);"."; 

120 V = (V - INT(V)) * 10 : IF V=0 GOTO 100 
130 PRINT CHR$ (V+48); 

140 GOTO 120 


THE WALL ST R£E1 JOURNAL 



“No! I don’t want any middlemen, put me 
ri^ht through to your computer.” 
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Infinitely Long PET Programs 


Henry Troup, Toronto 


Even with a 32K PET, it is sometimes desirable to handle 
programs in sections, loading as necessary. Loading a 
program from a program does not change any pointers so 
variables are preserved. However, any new program must be 
the same length or shorter than the first one loaded! 

In order to make certain details such as filenames and 
the disk commands transparent to the user, you may want a 
small front end loader or menu program to call in subsequent 
code. 


However, if the program coming in is longer than the 
menu driver, the variable pointers will be pointing right 
into the middle of your program. As soon as any new 
variables are created, the program is disturbed, and a 
machine crash may result. Certainly this will cause a 
non-recoverable error. This may be avoided by including this 
line as the first of the program: 

POKE 42, PEEK (201) : POKE 43, PEEK (202) : CLR 

This resets the bottom of text pointer and CLR cleans up 
all the other pointers. The program will now run safely. 

If a program containing this line at the beginning is 
RUN and then STOPped, and modifications are made, DO NOT 
re-run without branching around this line. If you do, the 
end of text pointer will be improperly set by the POKES and 
you might be in for trouble. 

Of course using this method does not allow passing data 
between the programs. Should this be required, you could set 
up a disk file with the necessary data and then call it back 
in, or simply exclude the use of the above line and make sure 
the first program is the biggest! 
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Some of you may have experienced problems PRlNTing 
characters to the screen over top of characters that are 
already there. Try, for example, the following program: 

100 ?"home"; 

110 FOR J = 1 TO 10 

120 ?" ++++++++++++++++++++++++++++++++++ 
++++++++++++++++++++++++++++ 44 " (approx 60) 

130 NEXT 
140 ?"home"; 

150 FOR J = 1 TO 10 

160 ?"******************" 

170 NEXT 
180 END 

So why the extra line feeds? PET maintains a "line 
wrap" table in RAM which determines whether the line is a 
single or a double line or more precisely, over or under 40 
characters. This is done for things like INPUT and for 
entering BASIC. 

For upgrade ROMs the wrap table is kept in RAM from 00E0 
to 00F8 ( decimal 224 - 248 ) , 0229 to 0241 ( dec 553 - 577 ) 
for old ROMs. 

So how do we eliminate these dastardly line feeds? You 
could play with "cursor ups" but if some lines are double and 
others single this can be somewhat cumbersome especially if 
your PRINT strings end at column 40. The alternative is to 
alter the information held in the line wrap table. 

The table consumes 25 bytes of RAM; one byte for each 
line on the screen. These bytes will contain the lines high 
order memory address. As you know, screen memory starts at 
hex 8000 and continues to hex 8FFF ( see memory map ) . The 
home position of the screen is therefore at hex 8000. Since 
the address of a line is taken from the beginning of that 
line, the address of the top line will be $8000 ( $ = hex ). 
The high order address is simply $80 and the decimal 
equivalent of $80 is 128. The PEEK of the first location of 
the wrap table will return a 128 which is of course decimal. 

The following relates wrap table decimal values (PEEK 
values) to the hex address of the first character space of 
each screen line. Remember, only the high order part of the 
address is of any concern to the wrap table. Also, the table 
resides in different locations for old and new ROMs so for 
now we'll call them locations 1 through 25. 







Is 128 8000 

2 : 128 8028 

3: 128 8050 

4: 128 8078 

5: 128 80A0 

6 : 128 80C8 

7: 128 80F0 

8 : 129 8118 

9: 129 8140 

10: 129 8168 

11: 129 8190 

12: 129 81B8 

13: 129 81E0 

14: 130 8208 

15: 130 8230 

16: 130 8258 

17: 130 8280 

18: 130 82A8 

19: 130 82D0 

20: 130 82F8 

21: 131 8320 

22: 131 8348 

23: 131 8370 

24: 131 8398 

25: 131 83C0 

If the wrap table PEEK values were represented in 
binary, the eighth bit would be set to 1 in each case: 

128 =1000 0000 
131 =1000 0011 

This means that the corresponding line is single or has less 
than 40 characters on it. 

When characters outputing to the screen wrap around the 
right side, PET considers these characters as part of the 
above line. Take, for example, the top two lines ( lines 1 & 
2 ). The screen is cleared and a string of 52 characters are 
PRlNTed from the home position, past column 40 and onto line 
2. Line 2 is now considered part of a double line but more 
importantly, line 1 is considered a single line of double 
length. The wrap table records this by setting the eighth 
bit of the value corresponding to line 2 to zero. The top 
two lines are now treated by PET as a single line hence the 
extra line feeds. This is most noticeable when using the 
screen editor on program lines of length greater than 40. 

The wrap table values for the example program would be: 
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1 : 128 8000 

2 : 0 8028 

3: 128 8050 

4: 0 8078 

5: 128 80A0 

6 : 0 80C8 

7: 128 80F0 

8 : 0 8118 

9: 129 8140 

10 : 1 8168 

11: 129 8190 

12: 1 81B8 

13: 129 81E0 

14: 2 8208 

15: 130 8230 

16: 2 8258 

17 : 13 0 82 80 

18: 2 82A8 

19: 130 82D0 

20: 2 82F8 

21: 131 8320 

22: 131 8348 

23: 131 8370 

24: 131 8398 

25: 131 83C0 

The Solution 

If PRINTing on double lines has thrown a wrench into 
your program, the easiest solution is make all lines single. 
Insert the following lines into the example program and RUN 
it: 

New ROM: 143 FOR J = 224 TO 248 : X = PEEK (J) 

145 POKE J, X OR 128 : NEXT 

Old ROM: 143 FOR J = 553 TO 577 : X = PEEK (J) 

145 POKE J, X OR 128 : NEXT 

The "OR" function in line 145 is used to set the eighth 
bit to 1, thus altering the wrap table such that PET 
considers all lines as single. 
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Random Access File Indexing 


For those writing programs that have random access 
record handling, a routine has been developed by Jim Hindson 
of Burlington, Ontario. The routine is basically an 
algorithm that will convert a record number into the location 
of the record within the file. 


2040 Disk Jim Hindson 

Index and Main Record locations for: 

a) Index file of records at 10 records per sector 

b) Main file of records at 3 records per sector 

Task A - Divide available sectors into sectors to be used 
as the index file and sectors to be used for the 
main file and to obtain an equal number of eacn 
record type (index and main) on a diskette. 

For 10 index records/sector and 3 main records/sector, one 
plan would be as follows: 


Index Records 


Record No. Track No. 


Sector No. 


1 - 

200 

1 


1-20 

201 - 

400 

2 


1-20 

401 - 

600 

3 


1-20 

601 - 

800 

4 


1-20 

801 - 

1000 

5 


1-20 

1001 - 

1200 

6 


1-20 

1201 - 

1400 

7 


1-20 

1401 - 

1500 8 

Main Records 

1-10 

Record No. 

Track 

No. 

Sector No 

1 - 

567 

9 - 

17 

0-20 

Track 

18 reserved 

for 

directory 

568 - 

927 

19 - 

24 

0-19 

928 - 

1251 

25 - 

30 

0-17 

1252 - 

1500 

31 - 

35 

0-16 


Each of the four Main Record areas will be 
track zones. 


known as 


Note (1) 
( 2 ) 


Although sector 0 is available on tracks 1 
is not used in this example. 

Sector 15 & 16 of track 35 not used 


8, it 


70 





Task B - Write a subroutine to convert any record number 

( say NR ) to the track, sector and record number 
within the sector. 

Variable Identification 


NR : Number of the Record, the location of which is 
required 


TR (1) 

Index 

file 

track 

number 

for 

NR 


TR ( 2) 

Main 

file 

track 

number 

for 

NR 


SN (1 ) 

Index 

file 

sector 

number 

for 

NR 


SN ( 2) 

Main 

file 

sector 

number 

for 

NR 


SR(1) 

Index 

file 

record 

number 

for 

NR 

(1-10) 

SR( 2) 

Main 

file 

record 

number 

for 

NR 

(1-3) 

z(l) - 

Z(4) : 

delimiters 

for the 

track 

zones which have a 


different number of available sectors 
B1 : number of records per track ( within a track 
zone ) 

A : Bl-1 

C : 1 less than the lowest track number in a 
track zone 

By using this subroutine it is not necessay to carry any 
inrurmation on the index file about where the record is 
located on the main file. 

Subroutine Convert 

Fed NR, this subroutine will return TR(1), SN(1), SR(1) 
and TR(2), SN(2), SR(2) for a 1500 record file of 1500 index 
records at 10 records/sector and 1500 main records at 3 
records/sector. 

40500 REM *** SUBROUTINE CONVERT *** 

40501 REM +++ FIND INDEX FILE LOCATION +++ 

4U502 Z = (NR + 199)/200 

40505 TR(1) = INT(Z) 

40510 Z1 = NR - ((TR(1) - 1)*200) 

40515 Z2 = (Z1 + 9)/10 
40520 SN(1) = INT(Z2) 

40525 Z3 = Z1 - ((SN(1) - 1)*10) 

40530 SR(1) = INT(Z3) 

40550 REM +++ FIND MAIN FILE LOCATION +++ 

40549 Z(1) = 567 : Z(2) = 927 
40552 Z(3) = 1251 : Z(4) = 1506 

40560 FOR J = 1 TO 4 :find track 

40565 IF NR - Z(J) <= 0 THEN 40576 zone 

405/b NEXT J 
40576 NZ = NR 

40578 IF J > 1 THEN NZ = NR - Z(J-l) .-convert to number 

within track zone 

40580 ON J GOTO 40591,40592,40593,40594 


40591 

A=6 2 

: Bl=63 

: C=8 

: GOTO 

40600 

:define 

40592 

A=59 

: Bl=60 

: C=18 

: GOTO 

40600 

zone 

40593 

A=53 

: Bl=54 

: C=24 

: GOTO 

40600 

parameters 

40594 

A=50 

: Bl=51 

: C=30 
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40600 Z =(NZ + A)/B1 :find 


40605 

TR( 2) 

= 

INT(Z) 


track, 

40610 

Z1 = 

NZ 

- ((TR(2) 

- 1)*B1) 


40615 

Z2 = 

(Z1 

+ 2)/3 



40620 

SN( 2) 

= 

INT(Z2) 


sector, 

40625 

Z3 = 

Z1 

- ( ( SN ( 2) 

- 1)*3) 


40630 

SR(2) 

= 

INT(Z3) 


record 

40640 

TR (2) 

= 

TR( 2) + C 


compensate for # of 

40650 

SN (2) 

= 

SN(2) - 1 


tracks in lower and 


availabilty of 
sector 0. 


40660 RETURN 


Editor's Note 

You may be asking, "Why an index file routine and a main 
file routine when the whole purpose is to do away with the 
index ?". The index file really doesn't do any indexing and 
might have been called a 'sub-main' file. Jim developed the 
program for his own use and found it more efficient to split 
each entry into 2 files: an "index" file for name and Social 
Insurance Number and a main file for any remaining info 
(address, phone #, etc.). It was anticipated that HO 
characters would be required for each entry. With 255 byte 
sectors, this would impose a restriction of 2 entries per 
sector, wasting 35 bytes. The maximum would also be 
restricted to 2*670 (blank disk has 670 sectors) or 1340. By 
splitting up the entries into 25 and 85, each sector or block 
can filled to capacity allowing 1500 entries. This figure 
could also be increased as some blocks are unused. 

This method of indexing has only one drawback: NR. That 
is, each item in the file must have a number ( 1, 2, 
3...etc.) that may be irrelevant to the data being recorded. 
Therefore, access to a record requires entry of the 
corresponding 'NR' and in the above example NR has a range of 
1 to 1500. 

This would be ideal for applications such as a mailing 
list where each subscriber has a number, but for a inventory 
it becomes somewhat impracticle since 'NR' will probably not 
be your part number. However, Jim's method is still simpler 
than recording disk co-ordinates. Consider this; have PET 
assign "NR 1 s" to the record element that will be primarily 
used for record recall. For example: 

(Part #1) , X 

(Part #2) , X+l 

(Part #3) , X+2 

...and so on. This information could be stored in an random 
inaex file along with the total number of entries (TE) so 
that PET would know where to start assigning new NR's to new 
entries. 

With the desired Part # entered, the index file could be 
searched, NR extracted and passed into Jim's main file 
subroutine. 
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Once the track and sector co-ordinates are determined ( 
TR(2) and SN(2) ), they can now be inserted in the Block-Read 
command and SN(2) in the Buffer-Pointer command for rapid 
record access. You might also consider using Bill Maclean's 
Block Get routine for transfering data from disK to PET. 


System layout for above: 



TE H rtotal entries 
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This months Transactor is a collection of all the charts 
and tables concerning PET and computers in general. Some 
have appeared in previous Transactors but flipping and 
finding can be a chore. Therefore a handy reference was 
thought to be in order. 

For The Best of The 
Transactor Volume 2, this 
reference material has been 
moved to the back for quick 
access. 
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DATA 

120 , 

56 • 

169 , 180 

23 r 

20 

DATA 

144 , 

0 , 

141 , 144 

0 

30 

DATA 

56 

169 .. 

2 3 3 .* 2 3 r" 

145 

40 

DATA 

0 , 

141 , 

145 , 0 

88 

50 

DATA 

96 .« 

173 , 

166 * 0 

201 

60 

DATA 

-cr cr 

•_* 

208 , 

12 , 169 

8 

70 

DATA 

141 , 

103 , 

3 , 169 

90 

80 

DATA 

141 , 

120 , 

3 . 203 

cr 

1 -i. 

90 

DATA 

il-OO .* 

103 , 

3 , 173 

104 

92 

DATA 


205 , 

103 , 3 

176 

94 

DATA 

14 

169 , 

6 , 141 

104 

96 

DATA 

3 .< 

162 , 

255 , 142 

151 

98 

99 

DATA 

DATA 

0 .« 
76 .« 

^46 i 

142 , 103 
230 



100 FOR 1=880 TO 947 
110 READ J 
120 POKE I , J 
130 NEXT 

140 PRINT"SYS 880 WILL ENABLE AND DISABLE 
150 PRINT" THE AUTO REPEAT FUNCTION 

160 END 
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P I qcK get Rpu tina 


Bill MacLean 

BHB Compuscience, Canada 


The machine language routine below can be used with 
direct access routines to transfer the contents of a disk 
buffer into PET memory. BASIC 2.0 only. 

100 FOR J = 826 TO 914 
110 READ A 
120 POKE J r A 
130 NEXT 


200 

DATA 

169 

F 

0 

F 

133 

F 

52 

F 

169 

F 

127 

210 

DATA 

133 

F 

53 

F 

32 

F 

248 

F 

205 

F 

32 

220 

DATA 

159 

F 

204 

F 

32 

F 

210 

F 

214 

F 

165 

230 

DATA 

18 

t 

240 

F 

3 

F 

76 

F 

3 

F 

206 

240 

DATA 

165 

F 

17 

F 

133 

F 

210 

F 

169 

F 

0 

250 

DATA 

133 

F 

1 

F 

169 

F 

127 

F 

133 

F 

2 

260 

DATA 

166 

F 

210 

F 

32 

F 

198 

F 

255 

F 

32 

270 

DATA 

207 

F 

255 

F 

201 

F 

10 

F 

240 

F 

249 

280 

DATA 

201 

f 

13 

F 

240 

F 

8 

F 

160 

F 

0 

290 

DATA 

145 

F 

1 

F 

230 

F 

1 

F 

208 

F 

237 

300 

DATA 

165 

F 

210 

F 

32 

F 

204 

F 

255 

F 

32 

310 

DATA 

248 

F 

205 

F 

32 

F 

159 

F 

204 

F 

160 

320 

DATA 

0 

F 

165 

F 

1 

F 

145 

F 

68 

F 

200 

330 

DATA 

169 

F 

0 

F 

145 

F 

68 

F 

200 

F 

169 

340 

DATA 

127 

F 

145 

F 

68 

F 

96 

F 

66 




Note: For 16K machines, change the three 127's to 63's. 

The command to use this program is: 

SYS 826 , LF# , A$ 

It replaces: 

INPUT# (LF#), A$ 

It works with ASCII string files only. Any string 
variable can be used but must be initialized before calling. 

eg. A$ = "" : SYS 826 , 2 , A$ 

A$ only has to be initialized once. 

Since the string is transfered from disk into a dummy 
input buffer ($7F00 to $8000 on 32K machines, $3F00 to 4000 
on 16K), it is necessary to move the record into BASIC string 
storage. This can be accomplished by: 

A$ = A$ + "" or Y$ = A$ + "" or A$(J) = A$ + "" 

This routine has two advantages over INPUT#. It permits 
inputting strings up to 255 characters and it strips the Line 
Feeds placed on disk by PRINT#. Also it is much faster than 
using GET# in a loop. 
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Block Get can also be used for sequential file access to 
recover strings of length greater than 80. Even 255 
character strings can be retrieved with Block Get. 
Essentially, Block Get is the same as INPUT# but with a 255 
character input buffer....which brings us to point 2. 

This 255 byte buffer is set up in the very top page of 
RAM; $7F00 to $7FFF on 32Ks or $3F00 to $3FFF for 16Ks. This 
space must be sealed off before INPUTing or INPUT#ing 
strings, defining strings as the result of a concatenation, 
LOADing DOS Support or anything else that resides in this 
memory space. Otherwise when Block Get is called, the data 
will be transfered from the disk into the buffer and clobber 
your DOS Support, strings or whatever happens to be there. 

POKE 53 , PEEK (53) - 1 : CLR 

Location 53 ($35) is the high order byte of the Top Of 
BASIC Pointer. Decrementing 53 by 1 brings the pointer down 
by 256 thus "sealing off" the top page of memory. PET will 
then ignore this memory as though it's not even there (try 
?FRE(0)). You may want to use absolute values rather than 
PEEK (53) - 1 since each time this is executed, the pointer 
will decrement another 256 bytes. 

32K : POKE 53 , 127 : CLR 

16K : POKE 53 , 63 : CLR 

The CLR command equates some other pointers to the new 
value of the Top of BASIC Pointer i.e. the Bottom of Strings 
Pointer and the Utility String Pointer. These could also be 
POKEd, but CLR does the job quite nicely. 

If DOS Support is to be used with Block Get, this 
statement should be executed prior to RUNning DOS. However 
Block Get contains one gotcha that will leave DOS open for 
certain destruction. 

When DOS Support is LOADed and RUN, it sets itself up 
just below the Top of BASIC Pointer (TBP). After executing 
the above command, the TBP will now be 256 bytes lower.... 
but that's ok since DOS can live anywhere. Once set up 
though, DOS lowers this pointer again to protect itself. But 
each time Block Get is called, the pointer is moved back to 
256 bytes lower than the TBP at power up. Nov; DOS is sitting 
in memory that is available to BASIC. Re-RUN your program 
and whammo!...DOS Support gets clobbered by strings. Hit ">" 
and PET JSRs to where DOS used to be which is now ASCII 
characters....crash! 

Fortunately this can be avoided. The first 8 bytes of 
Block Get sets the TBP every time it's called: 

033A LDA #$00 

033C STA $34 

033E LDA #$7F (3F for 16K) 

0340 STA $35 

Therefore when using DOS Support and Block Get, SYS past 
these bytes with: 

SYS SilA , LF# , A$ 


Instead of: SYS 826 , LF# , A$ 




FRANK & ERNEST 
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BITS AND PIECES 


Re-DIMensionina Arra’^ 


You all know what happens when you attempt to re-define 
an array that has already been defined. PET returns a 
?REDIM'D ARRAY ERROR. But maybe you had a good reason to 
re-dimension. And now you must perform a CLR which clobbers 
all your variables, or else work around it. No longer! Ey 
manipulating some pointers down in zero page, arrays can be 
REDIM'D with no problem at all. Try the following example: 


100 DIM A$ (1000) 
110 GOSUB 2000 
120 DIM A$ (2000) 
130 GOSUB 2000 
140 DIM A$ (126) 
150 END 


2000 POKE 46 , PEEK (44) 
2010 POKE 47 , PEEK (45) 
2020 Z 9 = FRE (0) 

2030 RETURN 


The subroutine at 2000 "squeezes" the array out by 
making the End of Arrays Pointer equal to the Start of Arrays 
Pointer. PET now believes that there are no arrays of any 
name so DIMensioning is ok. The new array(s) is "built" in 
the same memory space. 

Line 2000 forces a "garbage collection" so that any 
strings associated with Array A$ are thrown away. This 
wouldn't really be necessary with floating point or integer 
arrays since the values are stored in the array itself. With 
string arrays, only the string lengths and pointers to the 
strings are stored in the array. The strings lie elsewhere 
in RAM; in high memory if they were the result of a 
concatenation or INPUT from the keyboard, disk, etc. and 
directly in text if that's where they were defined (why store 
it twice?) . This is also true for non-array type string 
variables. Of course strings residing in text are not thrown 
away by a garbage collection. 


The Transactor is produced by WordPro III in conjunction with 
the NEC Spinwriter 5530 _ 




This trick can be played especially well when the sizes 
of your arrays are maintained in a disk file along with the 
file information. 

Sometimes clearing all the arrays may not always be 
desirable. In that case, the order in which the arrays are 
defined becomes important. The 'permanent' arrays must be 
DlMensioned first, 'temporary' arrays last. However, if the 
value of the End of Arrays Pointer is stored immediately 
after defining the last 'permanent' array, the 'temporary' 
arrays can be squeezed out by POKing the End of Arrays 
Pointer with this value later on. For example: 

100 DIM A(1000) , B%(1500) , C$(1450) 

110 PL% = PEEK (46) : PH% = PEEK (47) 

...1000 INPUT #8, 1% , J% , K% 

1010 GOSUB 2100... 

2110 POKE 46, PL.% : POKE 47, PH% 

2120 DIM X (1%) , Y% (J%) , Z$ (K%) 

2130 RETURN 

The subroutine at 2100 would allow Arrays X, Y% and Z$ 
to be redimensioned any number of times without destroying 
Arrays A, B% and C$. 


Dynamic LOADinc 


Steve Punter of Mississauga has a note for those 
performing LOADS from within programs. If strings are 
defined in text and are to be passed between programs they 
must be placed in high memory before the LOAD is executed. 


As mentioned earlier, a string variable is set up with 
only the length and a pointer to the location of the first 
character of that string. When strings are defined in part 
of a line of BASIC, this pointer points right into that part 
of text. A dynamic LOAD replaces that text with new text 
and although the variable remains intact, the string itself 
is lost. Inotherwords, the pointer doesn't change but what 
lies in that location and the locations following is not what 
it used to be. In fact, it could be virtually anything; 
BASIC command or keyword tokens, line numbers or even another 
(or part of another) string. 


About the easiest way to avoid this is to define strings 
in text as a concatenation. For example: 


50 SP$ = "" + " " 

60 NO$ = "" + "0123456789" 


When a concatenation of any kind is performed, PET 
automatically rebuilds the string up in high RAM area thus 
protecting them from dynamic LOADS. 
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Cursor Positioning 


The following subroutines will remember the position of 
the cursor at a given time and restore the cursor to that 
position at a later time. This is often handy for displaying 
prompts or status messages in an area of the screen set aside 
for that purpose. Once the message is PRINTed, the cursor 
can be "brought back" to its former position to await user 
input, etc. 

Another application would be to re-position the cursor 
for re-input of data that may have been unsuitable or 
unrelated to the previous prompt. 


30049 

REM + REMEMBER 

CURSOR POSITION + 

30050 

W% = PEEK 

(196) 

: Old 

ROM 

224 

30060 

X% = PEEK 

(197) 

: Old 

ROM 

225 

30070 

Y% = POS 

(0) 




30080 

Z% = PEEK 

(216) 

: Old 

ROM 

245 

30090 

RETURN 





30149 

REM + RESTORE CURSOR POSITION + 

30150 

POKE 196, 

W% 




30160 

POKE 197, 

X% 




30170 

POKE 216, 

z% 




30180 

POKE 198, 

Y% 

: Old 

ROM 

226 

30190 

RETURN 






BASIC and the Machine Language Monitor 

Want to look at parts of your BASIC code with the 
monitor? Easy! Simply place a STOP command just before the 
code to be examined and execute it with a GOTO or a RUN 
followed by the appropriate line number. Now enter the 
monitor with SYS 4 and type: 

.M 003A 003B 

(Note: In the Machine Language Monitor, a space can be used 
as well as a comma for delimiting parameters.) 

In memory locations 003A and 3B is a pointer which is 
mainly used by the CONTinue command. When a line containing 
STOP or END is executed, the hex address of that line is 
stored in 3A and 3B so that PET can pick up where it left 
off. 


The address will appear low order first, high order 
second. Now a second ".M" command can be given using this 
address and some higher address to display the BASIC code in 
the general vicinity of the inserted STOP. 
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SAVinq With The Monitor 


Many BASIC programs are set up to access a machine 
language subroutine (Screen Print, Block GET, etc.)(also see 
F. VanDuinen's article PROGRAM PLUS). This code usually 
resides in the second cassette buffer. But the contents of 
the second cassette buffer are not recorded wit-h a BASIC SAVE 
command. Including a loader routine as part of your program 
avoids this problem entirely as the machine code would be set 
up in the buffer on each RUN. However the loader will 
probably contain DATA statements which must be accounted for 
if other DATA statements are read and re-read later in the 
program (RESTORE brings the data pointer back to the first 
DATA element). Working around this can be cumbersome. 


The solution is to ".S" the program with the Machine 
Language Monitor. Syntax for a Monitor SAVE is: 

.S "PROGRAM NAME",Dv#,start addrs,end addrs (RETURN) 

If the machine code is placed at the beginning of the 
2nd cassette buffer, the start address will be 033A. But 
where does the program end ? This can be determined by first 
doing a memory display of the End of BASIC Pointer: 


•M 002A 002b (RETURN) 

The above might return something like: 

.002A 87 2C 16 2D 4F 2F 45 7A 

The first two bytes indicate the end address (again, low 
order first, high order second) and in this case is 2C87. 
The Monitor SAVE command for this example would therefore be: 

. S "0:PROGRAM NAME", 08,033A,2C87 

The above is of course for disk users but 08 could also 
be 01 for cassette #1. Cassette #2 could not be used in this 
case since the recording process would wipe out the code in 
the 2nd cassette buffer. 


Now when the program is LOADed, it will start loading 
with your machine code subroutine directly into the second 
cassette buffer. 

Careful though! Any updates to this sort of program 
must be recorded using this same procedure. Additions or 
deletions will also cause the End of BASIC Pointer to change. 
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TRANSACTOR - A Philosophy 

The January/February, 1980 issue marks the beginning of 
the third year of The Transactor and the beginning of an new 
decade. Starting with this issue you will be noticing changes 
to the Transactor format and content which we hope will benefit 
you - the dedicated PET user. It is safe to say that the dream 
of a computer in every home, which you the reader are 
pioneering, is well under way. This trend will no doubt 
accelerate geometrically in the early 1980's. The Transactor 
will evolve as necessary to keep pace (or slightly ahead of 
that pace). 

Naturally the life blood of any non-profit publication 
such as The Transactor is your input. The potential of the PET 
system is so vast that no one or a small group of humans can 
hope to know all there is to know about the PET system. Each 
of us approach the PET with different needs, desires and 
applications. However in the process we discover answers or 
maybe as important raise questions which can be of incalculable 
use to the PET (and the greater 6502) community. This 
SYNERGISTIC process, where one plus one equals more than two, 
is the major function of The Transactor! 

To make it easier for you to participate, and as an 
inducement, we will issue a free one year subscription ( or 
extend your present subscription ) for any original article 
submitted to and published in The Transactor. The publishing 
decision wil remain with COMMODORE so be patient if you do not 
see your article published at once. No doubt there will be a 
backlog of good articles. 

We will experiment with annual BEST FEATURE ARTICLE and 
MOST CREATIVE APPLICATION awards. Beginning with Volume 2, 
bulletin #12 will contain a ballot. For best feature article, 
the winning author will receive a Commodore software product of 
their choice to a maximum value of $125.00; for most creative 
application, a Commodore calculator (max. $50.00). If reader 
response warrants it, we will issue runner-up awards also. 

We will continue to welcome your many letters and 
telephone calls. We will try to answer all, either 
individually (if we can) or through calls for help in the The 
Transactor . If your question proves particullarly widespread 
we will publish a general answer in The Transactor. 

With this and future issues we will include an index. For 
this issue we include an outline of articles we would like to 
cover in future issues. We welcome your comments particularly 
those articles which are of most interest to you. Of course 
such an objective will require considerable dedication from our 
readership. As readership increases (it presently numbers 
800+) we may be able to provide a modest honarium. 

If all the above sounds like an attempt to create another 
slick, glossy magazine please be assured this is not the case. 
Only by maintaining our present non-commercial, non-profit 
status will we be able to continue to provide and improve the 
support for the PET system. 
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POP a RETURN and Your Stack Will Feel Better 


Ever wanted to 'POP' out of a subroutine ? The POP 
function, available in some forms of BASIC, allows you to 
jump out of a subroutine using GOTO without leaving the 
RETURN information on the stack. But what if this 
information is left on the stack ? Try the following "bad" 
example: 

100 GOSUB 200 

110 END 

200 PRINT"SUBROUTINE ENTRY" 

210 GOTO 100 

220 PRINT"SUBROUTINE EXIT" : RETURN 

Of course line 220 will never execute but is the proper 
way to terminate a subroutine. Instead, execution is 

re-directed back to line 100 where another GOSUB is performed 
and more RETURN information is pushed onto the stack. Soon 
the stack fills to capacity and PET displays the ?OUT OF 
MEMORY ERROR IN 200. 

Now change line 210 to: 

210 SYS 50583 : GOTO 100 

With this modification the RETURN information will be 
artificially POPed off the stack before jumping out of the 

subroutine. (SYS 50568 for Old ROM) 

This POP resets the entire stack. That is all RETURNS 
are POPed (eg. subroutines called by subroutines). A single 
POP can be accomplished by doing a SYS to 7 PLA's followed by 
an RTS. 

Jumping out of subroutines is bad programming practice 
and should be avoided at all cost. But these simulated POPs 
have their applications. Consider an INPUT subroutine that 
handles an escape key (eg. the symbol). This escape key 

takes the program back to a "warm start", for instance the 

Main Menu. You could test for the and RUN if true, but 

RUN also CLRs all variables. Another method would be to 
RETURN from the INPUT subroutine upon detecting the but a 

second key test would be necessary upon RETURNing. This 

second test would also have to be repeated for every GOSUB to 
the INPUT subroutine which might consume considerable memory 
depending on the number of times the INPUT subroutine is 
used. The third method, and probrably the best for handling 
an escape key, is to use POP: 

20000 +++ INPUT SUBROUTINE +++ 

20010 GET A$ : IF A$ = "" THEN 20010 

20020 IF A$ = THEN SYS 50583 : GOTO (Menu) 

20030 See Transactor #6, Bullet Proof INPUT 

The POP SYS for BASIC 2.0 also has an equivalent BASIC 
4.0 entry point: 

BASIC 2.0: SYS 50583 

BASIC 4.0: SYS 46610 
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Disk Merge 


The following program uses disk in much the same fashion 
as the existing tape merge to merge one program with another 
in new ROM PETs. 


First LOAD the sub-program or subroutine that you wish 
to merge with your main program. Make sure that this code 
doesn't use line 0 as the merge routine makes use of this 
line. Now type directly on the screen: 

OPEN 8,8,8, " 0 : MERGE FILE NAME , S , W " : CMD 8 : LIST 

Of course 'MERGE FILE NAME' can be any filename and any 

part of the program can be 'LISTed' by following the LIST 

command with parameters. 

Now type: 

PRINT #8 : CLOSE 8 

The merge file is now complete and can be merged with 

any program at any time. LOAD the main program into RAM and 

enter the following line of BASIC without the spaces. 
Abbreviations must be used so that Disk Merge will fit on one 
line. 

0 INPUT#8,A$ : PRINT "cs"A$ : PRINT "POKE 174,1 : POKE 
593,8 : GOTO 0 " : POKE 158,3 : POKE 623,19 : POKE 
624,13 : POKE 625,13 : END 

With Abbreviations: 


0 iN8,A$ : ? "cs"A$ : ? "pO 174,1 : p0593,8 : gO 0" : pO 
158,3 : pO 623,19 : pO 624,13 : pO 625,13 : eN 

Now type: 


OPEN 8,8,8,"0:MERGE FILE NAME,S,R" : GOTO 0 (Return) 

and watch it go. One glitch...any lines in the merge 
file that span greater than two lines ( >80 characters ) such 
as those originally entered using abreviations, will cause 
the process to halt. Since Disk Merge makes use of the PET 
screen editor, these lines cannot be properly entered anyways 
as the BASIC input buffer is only 80 bytes long ( see upgrade 
ROM memory map locations 512 to 592 decimal). If this 
happens you can fix up the line with the appropriate 
abreviations, enter it with a 'RETURN', and continue the 
merge by executing the command line underneath ( Po 174,1 : 
Po 593,8 : Go 0 ). 


As with tape merge ( Transactor #2, Vol 2 ), a 7SYNTAX 
ERROR or ?OUT OF DATA ERROR will appear when the merge is 
complete. 
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Supermon 1.0 


Supermon is a machine language program which seals 
itself off in RAM and links itself to the built-in ROM 
Monitor. Once initialized, Supermon provides extended 
machine language monitor (M.L.M.) commands in much the same 
way that the Programmers Toolkit adds extra direct commands 
to BASIC. It is the ideal machine language programmers tool. 


COMMANDS 


USER INPUT IN 


REVERSE 


EEBa 




GO TO THE ADDRESS IN THE FC 
REGISTER DISPLAY AND BEGIN RUN CODE. 
ALL THE REGISTERS WILL BE REPLACED 
WITH THE DISPLAYED VALUES. 

.m mm 


GO TO ADDRESS 1000 HEN AND BEGIN 
RUNNING CODE. 



LOAD FROM TAPE 


.1 


LUfiD hNV F'RUURfiM FRuM t^bbb.T I c. $ l 


.a 

LOAD FROM CASSETTE #1 THE PROGRAM 

NAMED ® 


AM TEST 


.9 

LOAD FROM CASSETTE #2 THE PROGRAM 
NAMED 


RAM TEST 
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Supermon 1.0 : Set up 


The procedure to follow is about the simplest paper to 
PET transcription for obtaining a fully operational Supermon. 
The time spent here will be saved ten fold by dedicated 
machine code programmers and for those just getting started 
in machine language, Supermon is the perfect launch to more 
sophisticated assemblers and programs. 

Step 1. _ 

The two programs below are, respectively, the 
loader/relocator and checksum programs for the Supermon 
machine code to be entered later. Enter them into PET, 
double check, and SAVE seperately. Tape users should use 
seperate cassettes. Note: the two letter mnemonics within 
square brackets designate PET cursor control characters and 
should be entered as such. 

CAUTION: These programs should be entered exactly as they 
appear. Spaces can be omitted but anything that will cause 
the programs to be larger than shown (i.e. added commands, 
cursor control, spaces or characters, indenting, REMarks, 
etc.) must be avoided. Immediately before SAVing, check that 
FRE(O) is less than or equal to 31052 (14668 for 16k machines 
and 6476 for 8k). If not, LIST and edit out any text that 
doesn't belong. Otherwise I predict extreme exasperation in 
your future. 


100 PRINT"[CS DN DN RV] SUPERMON! " 

110 PRINT"[DN] DISSASSEMBLER [RV]D[RO] BY WOZNIAK/BAUM 

120 PRINT" SINGLE STEP [RV]I[RO] BY JIM RUSSO 

130 PRINT"MOST OTHER STUFF [RV],CHAFT[RO] BY BILL SEILER 
140 PRINT"[DN]BLENDED & PUT IN RELOCATABLE FORM" 

150 PRINT" BY JIM BUTTERFIELD" 

155 POKE42,182:POKE43,6:CLR 
160 L=PEEK(52)+PEEK(53)*256 
170 N=L-14 66:P=3391 :FORJ=L-lTONSTEP-l 
180 X=PEEK(P):IFX>0GOTO190 

185 P=P-2:X=PEEK(P+1)+PEEK(P) *256:IFX=0GOTO190 

186 X=X+L-65 536 :X%=X/256 :X=X-X%*256 :POKEJ,X%:J=J-1 
190 POKEJ,X:P=P-1:PRINT"[HM]";X;"[CL] ":NEXTJ 

200 X%=N/256:Y=N-X%*256 : POKE52,Y:POKE53,X%:POKE48,Y:POKE4 9,X% 

210 PRINT"[CS DN]LINK TO MONITOR — SYS";N 
220 PRINT:PRINT"SAVE WITH MLM:" 

230 PRINT".S ";CHR$(34);"SUPERMON";CHR$(34);",01";:X=N/4096:GOSUB250 
240 X=L/4096:GOSUB250:END 

250 PRINT",";:F0RJ=1T04 : X%=X:X=(X-X%)*16:IFX% >9THENX%=X%+7 
260 PRINTCHR$(X%+48);:NEXTJ:RETURN 





100 PRINT"SUPERMON CHECKSUM":CH=0 
110 FOR J = 1718 TO 3397 STEP 40 
120 FOR I = 0 TO 39 
130 CH = CH + PEEK(J + I) 

140 NEXT I 

150 READ CK : IF CK <> CH THEN 180 

160 CH = 0 : NEXT J 

170 PRINT" NO ERRORS !!" : END 


180 

190 

PRINT 

PRINT 

"' DATA ENTRY ERROR IN BLOCK " 
" ENTER M.L.M. WITH SYS 4 AND 

; (J - 1718 + 
VERIFY":END 

I)/40 



200 

DATA 

5428, 

5429 , 

5348, 

5125 , 

6141, 

5576, 

5622, 

5845, 

4883 , 

5703 

210 

DATA 

4966, 

5273 , 

5006 , 

5594 , 

5091 , 

5266, 

5066, 

4152, 

4942 , 

4180 

220 

DATA 

5697, 

4801 , 

5690 , 

5363 , 

3398, 

4556 , 

4639, 

5236, 

4843 , 

5232 

230 

240 

DATA 

DATA 

5359, 
2832 , 

4924 , 

5392. 

5653 , 

5717, 

2711, 

2631, 

1965, 

2874, 

3707, 

4148 


Step 2 ._ 

On the pages to follow is the machine code data for 
Supermon 1.0. This data will be read by the loader/relocater 
program and packed into the top of memory, wherever that 
happens to be on your machine*. Note: this is not the actual 
machine language for Supermon but rather the machine code 
data in relocatable form. 

To enter this data, first (pour yourself a fresh tea or 
coffee or open another pint and) enter: 

SYS 64715 

This is power-on reset or the equivalent of power down-power 
up. Now enter the machine language monitor with: 

SYS 4 

To make it easier, the code has been sectioned off into 
groups of ten lines, each displaying 8 bytes in hex. The 
first section (see next page) starts at $06B6 and continues 
down to $06FE+8 or $0705. However, the monitor will complete 
the line regardless of where in the line the contents of the 
last address specified will be printed. Therefore, enter the 
monitor command "M", for memory display, followed by these 
two addresses: 


M 06B6,06FE 

On hitting 'RETURN', the screen displays 10 hex addresses and 
the 8 hex bytes following that address inclusively. Since 
what is displayed is "empty space", all bytes should be the 
same. In most cases they will be hex "AA's". 


* Supermon relocates according to PET's Top of Memory 
Pointer. Therefore any programs already residing in the very 
top of user RAM (e.g. DOS Support, TRACE, etc.) will not be 
touched by Supermon. 
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Now move the cursor up to the first AA (beside .: 06B6) 

and, using the screen editor just as in BASIC, begin entering 
the data as shown in the first section. Use spaces between 
each byte and hit 'RETURN' at the end of each line. This 
enters all 8 bytes of the line simultaneously into their 
respective addresses in RAM. Don't worry too much about 
mistakes... the checksum program will help you find them later 
on. 


Upon completing a section entry, execute another 
"M"emory display using the first and last addresses shown for 
the next section (as above) . Continue entering bytes as 
before until all sections have been completed. (The 5 "AA's" 
at the end need not be re-entered but should be there for the 
checksum to work.) 

Once finished, SAVE it! Type: 

S "0:MON DATA 0",08,06B6,0D45 

This is of course for disk users; tape users can omit the 
drive number in the file name and substitute 08 with the 
appropriate cassette number. 


Step 3._ 

Exit the monitor (X and 'RETURN') but do not reset PET. 
Instead, LOAD the checksum program (recorded earlier) and 
RUN. This checks a block at a time by summing consecutive 
bytes and comparing against a checksum. A block is half of a 
section so if a " DATA ENTRY ERROR IN BLOCK x " occurs, 
count two blocks for each section. An odd number will 
indicate an error in the first half of the section and of 
vice versa. Fix any and all errors using the monitor, each 
time exiting and re-RUNning the checksum program until a " NO 
ERRORS !! " is returned. If there were no errors on the 

first RUN, there's no need to re-SAVE. Otherwise do a second 
SAVE using the same monitor command as above but of course 
with a different file name. 


Step 4 ._ 

Once again, exit the monitor but do not reset. LOAD the 
relocator program and RUN. Assuming all goes well, the 
program will end with instructions for initializing Supermon 
and SAVing just the relocated machine language. However, 
SAVE the relocator and the byte data together for later use 
(in case Supermon is to be relocated into a different size 
machine or along with other relocatable utilities e.g. TRACE 
:see Compute Issue #1). Enter the monitor with SYS4 and 
Type: 

S "0:SUPERMON.REL",08,0400,0D46 
...for SUPERMON Point RELocatable. 
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W.T. Garbutt 
Mississauga 
Ontario, L5L 1K3 

Sooner or later the PET owner requires greater memory 
storage or printed copy. For the former he can purchase a 
CBM disc, connect the cable, sit back and compute; for the 
later he can purchase a CBM printer. If the user needs a more 
esoteric peripheral say photometric analysis, current 
measurement etc. they will likely use the IEEE bus, so 
thoughtfully provided by the folks at Commodore. In a 
previous issue of The TRANSACTOR, Jim Butterfield talked 
about the IEEE buss. At the end of this article we provide a 
brief bibliographpy for further exploration. 

The IEEE port is not the only means a PET owner has to 
access the real world. As a matter of fact the most common 
peripheral interfacing technique in use is not the IEEE port. 
It is of course RS-232C. 

A brief digression- to review the differences between 
PARALLEL and SERIAL data transfer will prove useful. 

As we may recall PARALLEL data transfer involves sending 
out eight bits of data simultaneously over eight hard wires 
to define a byte or character. In addition a number of 
additional wires are needed to provide processor control and 
translation. While this method has the advantage of speed ( 
a byte is available at one time) it requires complex 

circuitry to interface to analog terminals as well as 
multi-conductor cable. The IEEE interface is a special 
example of the PARALLEL method. 

SERIAL data transmission, on the other hand is the 
method of sending data one bit at a time over a single wire. 
While inherently slower than the PARALLEL method it is 
ideally suited to the slow, single line analog 
interconnections such as phone lines, cassette tapes, radio 
or human operated printers or teletypes. 

Essentially RS-232C is the title for a standard 

formulated by the Electronic Industries Association (EIA). 
As a standard it decribes a set of parameters that must exist 
to provide the housekeeping necessary to interface a 

peripheral and transmit data to a computer. 

During the early 1960's the EIA formulated a set of 
standards to allow for an orderly interconnection and 
communication of peripherals to the then newly developing 
mini-computers. Prior to EIA's RS-232C standard what 
communication did take place was, in the vast majority of 

cases, handled by the 60 or 20 ma current loop teletypes. 
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Let's take a close look at the standard. The EIA 
Standard RS-232C is entilted "Interface Between Data Terminal 
Equipment and Data Communications Equipment Employing Serial 
Binary Data Interchange". For the compulsive reader the 
standard comprises a 29 page document covering "Electrical 
Signal Characteristics", "Interface Circuits and Mechanical 
Interface", and "Standard Interface for Selected 
Communication System Configuration". 

The standard has gained widespread use not only in the 
original area of intent, communication between terminal and 
modems, but also for the interconnection of computer 
peripherals such as printers, plotters, etc. 

Electrical Signal Characteristics 

The RS-232C standard as we indicated previously is based 
on SERIAL data transmission eg. a bit at a time over a single 
wire ( as opposed to PARALLEL, in which different bits travel 
over seperate wires at the same time). Electrically, a logic 
zero is represented by a voltage between +5 and +15 V; a 
logic one by a voltage between -5 and -15 V (see FIGURE 1) . 
The RS-232C standard also prescribes electrical impedence; 
drive capabilities, and signal voltage rate-of-change limits 
etc. 


+ 15 V 



FIGURE 1 

BIT REPRESENTATION 

The transmission can be synchronous or asynchronous. 
Synchronous transmission requires that a clock signal be 
present (usually transmitted on a seperate line) to mark the 
start of each bit of information. Optionally, special data 
patterns are used to define the start of a message. Data must 
of course follow uninterrupted in sychronization with the 
clock signal. With asynchronous transmission a clock signal 
is not transmitted with data. Instead the synchronizing 
information is incorporated into the data itself as a single 
logic zero at the start of a character and a logic one at the 
end of the character (see FIGURE 2). The receiver contains an 
internal clock that examines the data triggered by the logic 
one and zero bit and locates the character bit. 
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The advantages of using asynchronous transmission are 
clearly obvious; 

1. The transmission need not be continuous (desirable 
when entering data to a terminal manually) 

2. Less complex (no clock) and hence less prone to error. 

3. Capable of moderately high transmission speeds. 
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FIGURE 2 

ASYNCHRONOUS ASCII 
CHARACTER REPRESENTATION 

Interchange Circuits 

The signal interchange circuits defined by RS-232C fall 
into four groups: ground, data, control, and timing. We 
have already mentioned timing (e.g. synchronous and 
asynchronous transmission). Grounding is, of course, 
obvious. Let's examine data and control. 

Data 

Within an RS-232C interface are two seperate 
bi-directional data channels. The primary channel is the main 
data channel. The secondary channel is intended to serve as 
a low speed channel or as an auxilliary channel to convey 

status information. 

Control 

Associated with each of the two data channels are three 
control signals; Request to Send to the Data Communication 
Equipment (DCE); Clear to Send (from DCE) and Received Line 
Signal Detector (from DCE). Six additional signals are 
associated with the interface: Data Set Ready (from DCE), 

Data Terminal Ready (to DCE), Ring Indicator (from DCE), 

Signal Quality Detector (from DCE), and Data Signal Rate 

Selectors for both Data Terminal Equipment (DTE) and DCE. 
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These control lines serve several major functions: 

1.OPERATIONAL STATUS: Data Terminal Ready (pin 20) is 
set by the DTE to indicate that it is functional (often a 
power-on indicator). Data Set Ready (pin 6) is the 
complimentary function performed by the DCE. 

2. INITIATION OF DATA TRANSFER: Request to Send (pin 4) 
is activated by the DTE when it wishes to transmit data to 
the DCE; Clear to Send (pin 5) is the signal by which the DCE 
indicates that it is capalbe of receiving data from the DTE 
for transmission. 

3.STATUS CHECKING: Signal Detect (pin 8) is set by the 
DCE to indicate that a carrier of sufficient amplitude is 
present. Signal Quality Detector (pin 21) is set by the DCE 
to indicate that the quality of communication is acceptable. 

4.INITIATION OF LINK: Ring Indicator (pin 22) is set by 
the DCE to indicate that an incoming call is being initiated. 
While the majority of these signals are intended for 
interconnection of a terminal to a modem the user is free to 
assign them other functions, provided they are common to the 
interconnected devices. 

Mechanical Interface 

The RS-232C specification calls for a 25 pin connector, 
with the male part tied to the DTE and the female to the DCE. 
Consult Table 1 for RS-232C pin assignments. 

NOTE: The reader is reminded that the RS-232C was initially 
designed as a communication interface standard hence the 
numerous pinouts. The simplest configurations can operate 
with a combination of 3 or 4 pins ( the most common are *'d). 
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FUNCTION 


RS-232C PIN-OUT 
1 

* 2 

* 3 

* 4 

* 5 

* 6 
* 7 

8 

9 

10 

11 

12 

13 

14 

15 

16 

17 

18 

19 

20 
21 
22 

23 

24 

25 


Protective ground 
Transmitted Data 
Received Data 
Request to Send 
Clear to Send 
Data Set Ready 
Signal Ground 

Received Line Signal Detector 
(Reserved for Data Set Testing) 
(Reserved for Data Set Testing) 
Unassigned 

Secondary Rec'd Line Signal Detector 
Secondary Clear to Send 
Secondary Transmitted Data 
Transmission Signal Element Timing 
Secondary Received Data 
Receiver Signal Element Timing 
Unassigned 

Secondary request to Send 
Data Terminal Ready 
Signal Quality Detector 
Ring Indicator 

Data Signal Rate Selector: DTE/DCE 
Transmitter Signal Timing Element 
Una ssigned 

TABLE 1 

RS-232C PIN 
ASSIGNMENTS 


Foot-note 

In the mid 1970's with increased peripheral 
sophistication made possible by integrated circuits new 
standards were clearly needed. On the initiation of Hewlett 
Packard ( which was manufacturing a great number of these new 
sophisticated peripherals) the International Electical and 
Electronics Engineers issued it's 488th standard in 1975. 
Called appropriately enough the IEEE-488-1975. (A revision 
was issued in 1978.) Essentially the standards were based on 
PARALLEL rather than SERIAL data transmission. 


Commodore has provided a PARALLEL User Port as well as 
an IEEE Port. Numerous methods have been described in 
micro-computer periodicals for simple and complex RS-232C 
circuits using either the IEEE or PARALLEL User Port. 
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The following letter was received from PET 
user/enthusiast F. VanDuinen. It precedes his third article 
for the Transactor and contains a most unique request.... 


3 February 1980 

Karl J. Hildon, Editor, 

The Transactor 

Commodore Business Machines, Ltd. 
3370 Pharmacy Ave. 

Agincourt, Ont. M1W 2K4 


Dear Karl: 


Here is another article for your newsletter. I do 
hope it is suitable for publication. Should you feel that it 
is worthwhile to revise it, such as make it less verbose, do 
not hesitate to let me know and I'll gladly oblige. 

I also have a question I'd like to submit to the 
Transactor readers. I'd appreciate if you'd include it in 
whatever way you deem appropriate: 

Many of the advantages of emulating one machine on 
another (also referred to sometimes as simulation), are well 
known. (A good example is the article '8080 Simulation with 
a 6502' by Dann McCreary in Micro, September '79, pp53-56.) 
There is one less obvious advantage, however. Consider a 
6502 emulator (or simulator) to run on the 6502 . That's 
right, emulate a machine on itself! 

Such an emulator, provided it could handle 
breakpoints without modifying the code to be executed, and 
relocation of fields operated on, would be very useful in 
studying the function of code in Read Only Memory. 

I'm looking for just such an emulator to learn more 
about the exact functioning of PET system routines. So if 
anybody knows of just such an emulator, let's hear about it 
through our newsletter, The Transactor. 



F. VanDuinen, 

175 Westminster Ave. 
Toronto, Ont. M6R 1N9 
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F. VanDuinen 
Toronto 
30 Jan 80 


PROGRAM PLUS 


Overview 

Many BASIC programs require assembler routines that ace 
not part of the PET system (ROM) , but that must be brought 
into memory before the program can execute properly. This 
article looks at techniques for SAVing these with the BASIC 
program, so they will be brought in automatically when the 
main program is LOADed. 

One of these techniques can even be used to set PET 
operating system fields as part of the LOAD instruction. 
That allows such esoteric tricks as program protection and 
changing LOAD to LOAD-and-RUN. 

The system used in the examples is an 8K old ROM PET 
with only tape storage. While these techniques are directly 
adaptable to new ROM PET, only a few have relevance to 
disk-based systems. 


Multiple Files 

The most straightforward way would be to have the 
various programs, BASIC and assembler, in individual 
consecutive files on the same tape. That way the main 
program would issue in sequence a LOAD for each of the other 
files. 


Unfortunately that does not work. After the loading of 
each individual program, the PET updates BASIC's program 
pointers. Therefore the main BASIC program must be LOADed 
last. Also, the first program (assembler) must be started 
using the SYS command. 

Simpler would be if everything could be SAVed together 
on one single file. The following techniques all do just 
that. 


Following BASIC program 

If the assembler routine is stored immediately following 
the end of program marker, it must be protected from variable 
storage. This can easily be done by setting the End of 
BASIC/Start of variables pointer (loc 124/125) to follow the 
appended code. As an added bonus, that is all that is 
required to cause the appended code to be SAVed with the 
BASIC program on the next SAVE. On subsequent LOADS all 
code will be brought into memory, and the End of BASIC/Start 
of Variables pointer will be automatically set from the end 
of program pointer in the program file header. 
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I don't know exactly how, but when there is a 
discrepancy between the End of BASIC pointer and the end of 
program as marked by the Next Instruction Pointer(NIP) chain, 
the End of BASIC pointer isused for the SAVE. This is in 
spite of the fact that the SAVE instruction does rebuild the 
NIP pointer chain. 

The problem with this approach, of course, lies with 
BASIC program updates, (Analogous to Parkinson's third law, 
programs tend to expand untill they fill all available 
memory.) Every time the program is extended, the assembler 
code following it will have to be moved, thus necessitating 
changes to all absolute references (e.s. SYS, JMP, JSR etc.). 
This can to some extent be accomodated by leaving some unused 
space between the BASIC and the assembler code, but only at 
the dual cost of increased load time and reduced space for 
variable storage. 

This approach of appending can be very nicely used to 
reserve memory space for tables etc., that will be created 
only at RUN-time, i.e. where the content of these locations 
at LOAD-time is irrelevant. I have used this tecchnique in 
the case of a BASIC program (not a compiler) that creates an 
assembler program and then SAVes it on tape. Most of the 
assembler code was constant and was carried as strings of hex 
characters in DATA statements in the BASIC program. Variable 
portions of the assembler program were then tailored based on 
input received the BASIC program and added to the constant 
code. 


Because of memory constraints and the size of the target 
assembler program, it was necessary to create the latter in 
the space previously occupied by the DATA. The added 
variable portion, however, could be so large that the DATA 
space might be insufficient. All DATA statements were 
therefore set up at the very end of the program, with 
additional space reserved (but not used until execution time) 
by adjusting PET'S End of BASIC pointer. The start of the 
DATA statements was determined at execution time from loc 
144/145, where PET leaves the address of the next DATA 
statement (after at least one READ) . 


Within BASIC 

An interesting approach is that of storing assembler 
code within a BASIC program. While the technique is 
practical only for very short assembler routines, it does 
handle those very neatly. 

The technique involves setting up a REM statement at the 
beginning of the program to set aside the space required for 
the assembler routine, and then pokins the assembler code in. 
A few conditions must be met: 

.the End of Instruction marker (zero) and NIP pointers 

must not be disturbed 

• the assembler code may not contain any zeroes, e.s. 

LDY #0 is out (use LDY #255 & INY to effect this) 
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.set up a quote mark immediately before the assembler 
object code, to accomodate listing the funny characters 
.no BASIC statements should precede this carrier REM 
(any updates to these would relocate the assembler 
code) 

.the carrier REM must be clearly marked as such, as 
LIST will not clearly indicate the assembler code. 

More than one routine could be set up by using more than 
one carrier REM, however one routine per REM. A good example 
of this is a disassembler program in BASIC that needs an 
assembler routine to 'PEEK' at the region occupied by the 

BASIC interpreter (old ROM). 

The following is an example of such code, showing both 
the way the BASIC program would look, and the assembler 
source code. The example shown is for a disassembler for 

both old and new ROM. (PEEK(50003) will return 1 (one) for 
new ROM, 0 (zero) for old.) 

10 REM DO NOT DELETE '.statement carrying assembler 

20 POKE 1,23 : POKE 2,4 set up USR address as 1047 

• 

100 REM PEEK ROUTINE 

110 IF PEEK(50003) THEN S1=PEEK(S1) : RETURN handle new ROM 

120 SI = USR(Sl) : RETURN handle old ROM 

The assembler routine at 1047 could be as follows: 


20A7D0 

JSR 

$D0A7 

convert USR parameter to fixed pt. 

A0FF 

LDY 

#255 

*clear Y index register 

C8 

INY 


* 

B1B3 

LDA 

(179) ,Y 

get contents of specified byte 

2078D2 

JSR 

$D27 8 

set up USR value in F.P. 

60 

RTS 


return 


In File Header 

File headers are the same length as data blocks, 192 
bytes. The system recognizes the various blocks from the 
record type in the first position: 

1 - program file header 

2 - data block 

4 - data file header 

5 - end of volume marker (OPEN .,.,2,.) 

Following, that in the program file header, are the beginning 
and end addresses where the program is to be loaded (two 2 
byte addresses). (In data file headers similar addresses are 
present. Those are merely the beginning and end of the 
buffer from which the file was written.) 

Starting in byte 6 is the file name. While the name has 
a maximum length of 128 bytes, typically less than a quarter 
of that is used. 
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That leaves from (192-128-5)=59 to some (192-32-5)=155 
bytes that could be used to carry something else. The main 
problem with this approach is that it is difficult to set up 
the assembler code. 

One method is to key in the characters corresponding to 
the object code as part of the name. The format and length 
of the name are very critical that way. Furthermore, not all 
255 possible codes are present on the keyboard. 

Another way is as follows: 

.issue a SAVE specifying the normal name etc, and 
immediately press the STOP/RUN key. 

.this results in a proper file header in the buffer, 

and all pointers properly set up 

.then POKE the assembler code into this header 

.write out this header by: 

POKE 633,100 (specify length of shorts to write) 

(195 for new ROM) 

SYS 63676+8 (write block with leader length as 
set) 

(63622+8(?) for new ROM) 

.set up start and end of 'buffer' pointers at 247/248 
and 229/230 respectively (251/252 and 201/202 for new 
ROM) to beginning and end of program to be saved 
.write out program by: 

SYS 63676 (write block preceded by standard 

leader) 

(63622 for new ROM 

For subsequent program update, use can be made of the 

fact that the header and pointers have already been set up. 
Using the above sequence first, the existing header and then 
the updated programsegment can be saved. 

A few caveats are in order, however: 

.if the update changes the programs lenght, the 

header's end of program marker (in loc 4/5 of the 

header (639/640 or 831/832 absolute)) has to be updated 
from PET's End of BASIC/Start of Variables pointer 
124/125 (new ROM 42/43) 

.any tape I/O on the device from which the program was 
LOADed will also destroy the file header copy in the 

buffer 

The VERIFY command may be used, if need be, to obtain a 
fresh copy of the file header without disturbing anything 
else. 


Preceding BASIC 

It is curious to reflect, that in a way the reason I'm 
writing this article is because Len Lindsay in his PET-Pourri 
column in Kilobaud (June 79, p6) talked about program 
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protection that changed LOAD to LOAD-and-RUN, and disabled 
the STOP key. That got me intrigued, trying to figure out 
how that was done. Until suddenly my mental block cleared: 
why not load operating system data along with the program. 
That could set the RUN in the keyboard buffer, and the 
modified interrupt address. That, of course, was very smart 
and at the same time very wrong, as there is a special 
interrupt routine in use during tape read, and the system 
resets that to the normal interrupt routine address at the 
end of the LOAD. But at least it got me thinking in the 
right direction. 

Normally when a BASIC program is SAVed, the starting 
address used is 1024 or $400 . More precisely, the SAVE 
command gets its starting address from loc 122/123 (new ROM 
40/41), PET'S Start of BASIC pointer. 

Consider, however, the possibilities of lower addresses; 
826 (tape 2), 634 (tape 1), or even lower. That's right, why 
not include system fields! Set things like the keyboard 
buffer, interrupt addresses (careful there) and stuff like 
that. 

To be sure, there are complexities in setting it up and 
scores of ways of crashing the system, but possibilities 
nonetheless. 

During a LOAD operation, the system first reads the 
program file header into the appropriate buffer (tape 1 or 
tape 2). Then it transfers the start and end of program from 
the file header (2/3 and 4/5 in header) to loc 247/248 and 
229/230 respectively (new ROM 251/252 & 201/202) . Thus by 
the time the actual program segment is read in, the header is 
no longer required. If the start of program address is 
before the end of the tape buffer, the program segment will 
simply be stored on top of the header. 

Looking at the system fields, starting at the end and 
working backwards we see a lot of fields that are not really 
relevant during a LOAD operation. Most of these standard 
values will do nicely. For instance, 553-577 (new ROM 
224-248) contains the 'Line Address and Screen Wrap table'. 
Setting these up as after a clear screen should not affect 
most programs. 

Some fields are critical, but predictable. For 
instance, the Hardware Interrupt Vector at 537/538 (new ROM 
144/145) is critical (I believe). Predictable, however, as 
it should contain the address of the Tape Read Interrupt 
Routine, $F95F (new ROM $F931). The Stack (267-511) is also 
critical, unfortunately I have not the faintest idea what it 
contains during the loading of a program segment. I do 
believe it is constant during most of this process and is the 
same for every direct LOAD. (It will be different for LOADS 
issued from a program.) 

I hope someone will investigate what the Stack looks 
like during this time and publish it. 
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Locations 247/248 and 229/230 are critical (at least 
229/230 is) , but are known to be as per the file header 
fields. All other fields are essentially immaterial. 

That leaves of course the SAVing of the wanted values 
for these fields. While they are predictable or known during 
a LOAD, many of them are affected by a SAVE. 

The trick is to copy all relevant fields and the entire 
BASIC program to a location where they are out of harms way, 
and SAVE them from there in such a way that they will be 
LOADed back into their original location. 

The technique is to write a file header whose start and 
end of program addresses specify the desired LOAD location, 
and then write the program segment with PET's start and end 
of buffer pointers (247/248 and 229/230 respectively) 
pointing to the program's current location. The routine at 
the end of this article (Relocate and SAVE) will do just that 


Applications 

The ability to set system fields has a number of 
interesting applications. Program protection is but one of 
these. Another is the use of relocated BASIC programs. 

The main trick to program protection is to ensure the 
user can not use Immediate Mode. Thus the program must not 
release control. There are at least the following items to 
consider: 

.force automatic RUN by LOADing to keyboard buffer 
(don't forget cariage return and countfield) 

.disable RUN/STOP key by modifying interrupt address at 
537/538 (new ROM 144/145) 

use POKE 537,136 for old ROM, POKE 144,49 for new ROM 
.do not use INPUT, use GET and ignore RUN/STOP 

That leaves tape I/O. I don't know if the STOP key can 
be disabled there. It may be necessary to include assembler 
code that duplicates the tape read interrupt routine at 
$F95F, minus the check for STOP key, and further code to 
simulate INPUT# and PRINT# to ensure the address for the 
other routine is used in 537/538. 

Unfortunately all that effort still would not make it 
foolproof. The way around it is still quite simple (as per 
Jim Butterfield's article on page 1 of Transactor #1, Vol 2). 
Instead of LOAD use: 

SYS 62894 to load the header 

POKE 638,... : POKE639,... to modify the area the program 

is to be LOADed into 

To avoid critical system fields, inspect the code using 
immediate PEEK instructions, and modify to disable the code 
that disables the STOP key. Also correct any pointers that 
may have been messed up to prevent the LIST function from 
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being used. Then copy over the program to its proper 
location (using immediate instructions). 

In Transactor #5, Vol 2, was an article (Memory 
Expansion, Cost $0.00) about using the tape buffers for BASIC 
program storage. As indicated in the article, before 
programs located there could be executed, certain PET system 
pointers had to be changed. Well, here's the way to set 
those pointers automatically. 

The only time I've used this technique so far was for a 
loader program to load the object code written by my 
assembler program. The assembler program I'm using is 
written in BASIC, and resides at address $400 and up. So, 
when I assembled a program that was to reside there itself 
(and was too large to assemble in the few bytes not used for 
the assembler), I had no choice but to write it out to a file 
(one byte at a time). The, using a simple BASIC program, I 
could read each byte in and POKE it into consecutive 
locations, provided the loader program itself was not in the 
way. That program was thus created in the tape 2 buffer, and 
because it was small, did not use any memory above $400. 
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RELOCATE & SAVE VO.O 22JAN80 


PAGE 1 


2000 

:REM 

END ADDR FOR LOAD 


525 

:REM 

START ADDR FOR LOAD 


2525 

:REM 

START ADDR FOR SAVE 


SS + EL - SL 

: REM 

END ADDR FOR SAVE 


241 

:REM 

DEVICE NO (212) 


243 

:REM 

DEVICE NO PNTR (214) 


634 

:REM 

BUFFER ADDR 


63101 

:REM 

RTN TO SET BUFFER START & 

END (63082) 

63763 

:REM 

WAIT FOR I/O COMPL (63718) 


= 63676 

:REM 

WRITE BLOCK (DATA PGM) 

(63622) 


1 REM RTN TO SAVE & RELOCATE 

2 REM F. VANDUINEN 22JAN80 
10 EL 
20 SL 
30 SS 
40 ES 
50 DN 
60 DB 
70 B = 

80 R1 


110 REM R3 + 8 WRITE BLOCK WITH HEADER LENGTH SET IN 633 (195) 
120 LL = 633 :REM LEADER LENGTH (SEC OF SHORTS B./4 DATA) (195) 

130 BS = 247 :REM START OF BUFFER TO BE WRITTEN (PNTR) (251) 

140 BE = 229 :REM END OF BUFFER TO BE WRITTEN (PNTR) (201) 

150 D = 1 :REM TAPE NUMBER 

200 REM *CONSRUCT HEADER 

210 POKE DN,D:M=DB:K=B:GOSUB900:FOR I=B TO B+191:POKE I,32:NEXT 
220 POKE B,1 :REM SET FILE TYPE 

230 M = B + 1 : K=SL : GOSUB900 :M=B+3 : K = EL : GOSUB900 
300 REM *WRITE HEADER 

305 PRINT "305" 

310 SYS R1 
315 PRINT "315" 

320 SYS R2 

330 POKE LL,100 : SYS R3+8 
335 PRINT "335" 

400 REM *MOD POINTERS 

410 M = BS : K = SS : GOSUB900 : M = BE : K = ES : GOSUB900 
450 REM *WRITE PROGRAM BLOCK 

460 SYS R3 
500 END 

900 I = INT (K/256) : J = K - 256 * I : POKE M,J : POKE M+1,I 


: RETURN 
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I Q:commodore 

The T ransactor 

PET Tn is a registered Trademark of Commodore Inc._ 



Bits and Pieces _ 

Printer Tabbing 

When using TAB to print on the screen, PET looks at the 
current position of the cursor first ( POS(O) ). If the TAB 
argument is less than the cursors' position on the line then 
the data is simply printed in the spaces immediately 
following the last character printed. If the argument is 
greater than or equal to POS(O), PET subtracts POS(O) from 
the argument and prints the resulting number of 
cursor-rights. 

However, when printing to the printer, the cursor is 
usually in column zero and TAB acts like the SPC function 
(the printer has no "internal cursor"). Therefore, to make 
TAB work on the printer, print the data to the screen first 
then to the printer. This can be done with duplicate PRINT 
and PRINT# statements or more efficiently with one "dynamic" 
PRINT# statement. For example: 

10 REM OPEN OUTPUT FILES TO 
SCREEN & PRINTER 

20 OPEN 3,3,1 

30 OPEN 4,4,0 

40 PRINT# 3+X, "ABCDEFGHIJKLMNOPQRSTUVW"; 

50 X=l-X : IF X THEN 40 

Line 50 toggles X from 1 to 0 thus repeating line 40 only 
twice. The semi-colon is important else the POS(O) goes back 
to zero. When a carriage return is required on the printer 
the following might be inserted between PRINT# and toggle 
statements: 

45 IF X THEN PRINT#4,CHR$(13) ; 

Dynamic PRINT# statements are only more efficient if the 
DATA being printed is within quotes. If variables are used, 
more bytes are probably saved by duplicating the output 
statements. 


The Transactor is now produced on the new CUM 0032 us. i ng 
WordPro IV and the NEC Spinwriter. 


109 




Input and Output from PET Machi ne Language Jim Butterfield 

Toronto 

Output to the screen is quite straightforward. Load the 
ASCII character into the A register; then call the routine at 
FFD2. Special characters, such as cursor movements, will be 
honoured in the usual way. 

The GET activity gives no trouble, either, except for 
one minor situation. To do a GET, call FFE4 and the 
character will appear in the A register. If you don't have a 
character available, the subroutine will return zero in the A 
register. Since you can't get an ASCII zero from the 
keyboard, recognize this as a "no-character" situation and 
arrange to deal with it as desired. 

INPUT is a little trickier. When you call FFCF for 
Input, you'll get one character back. This seems like a GET, 
but it's really quite different. The first time you call, it 
will prompt and get an input, transfering it via the screen 
in the usual way; then it will edit out leading and trailing 
spaces and quote marks. After doing all this work, it will 
deliver the first character to you. On subsequent calls, it 
will deliver following characters. When it has delivered the 
whole input, it will deliver a Return character to signal 
you've got it all. After that, it starts over. 

Beginners will be happier using the GET call. 

Peripheral Input/Outp ut 

Surprisingly easy, once you have the above techniques 
mastered. 

Start by OPENing the file in BASIC, before you go to 
machine language. When you're ready to the actual activity, 
the machine language sequence is as follows: 

Load X with the logical file number; 

For INPUT or GET, call FFC6 to set the input 
channel; 

For output, call FFC9 to set the output channel; 

Nov; use you INPUT, GET, or output calls as 
described above; 

Finally, restore the normal input/output channels 
with a call to FFCC. Careful! This routine 
changes the A register to zero. 

Wind up your program in BASIC by closing all files, as usual. 

When you're INPUTting or GETting from an external 
device, keep an eye on the status word, ST (located at 020C 
in original RON, or at 96 in 2.0 ROM). It will warn you when 
you reach the end of a input file. 

The above procedure isn't too hard, and it's likely to 
carry through to newer versions of ROM when they appear. 
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An Instring Util ity for the 16/32K PET 


Have you ever wanted to program something like... 

MID$ ( A$, 10) = "Name, Address, etc..." 

...well now you can!...thanks to another fabulous routine by Bill 
Maclean of BMB CompuScience, Milton Ontario. The routine works 
only with PETs using the 2.0 ROM set. 


This is a little utility to allow a programmmer to change a 
substring within a main string. Its primary uses are manipulating 
data records in disk files and setting up formatted printer or 
screen outputs. It is called with the following command 

SYS 826,A$,B$,X 

This command string will cause the string A$ to be placed 
within string B$, starting at the 8th character. The A$,B$,and X 
are all variables. Any variables can be used. The programmer is 
responsible for assuring that the length of the main string is 
not exceeded. 

The machine language routine can be entered using the 
resident monitor and cursor editing the screen display. The code 
is completely relocatable and can be placed anywhere or relocated 
anywhere. The calling address (826 above) should be the address 
of the first byte of the program. 


PC IRQ SR AC XR YR SP 
; 0005 E62E 30 00 5E 04 F5 


M 033A 0382 
: 033A 20 

F8 

CD 

20 

9F 

CC 

A0 

00 

: 0342 

Bl 

44 

85 

00 

C8 

Bl 

44 

85 

: 034 A 

01 

C8 

Bl 

44 

85 

02 

20 

F8 

: 0352 

CD 

20 

9F 

CC 

A0 

01 

Bl 

44 

: 035A 

85 

OF 

C8 

Bl 

44 

85 

10 

20 

: 0362 

F8 

CD 

20 

9F 

CC 

20 

D2 

D6 

: 036 A 

A5 

12 

F0 

03 

4C 

03 

CE 

C6 

: 0372 

11 

A5 

OF 

18 

65 

11 

85 

OF 

: 037 A 

90 

02 

E6 

10 

A0 

00 

Bl 

01 

: 0382 

91 

OF 

C8 

C4 

00 

DO 

F7 

60 
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PET as an IEEE-488 Logic Analyzer Jim Butterfield, Toronto 

If you'd like to see what's going on on the GPIB - and 
if you can borrow an extra PET and IEEE interface cable - 
this program will help. 

It shows the current status of four of the GPIB control 
lines, plus a log of the last nine characters transmitted on 
the bus. 

The four control lines are NRFD, NDAC, DAV and EOI. It 
would be nice to show ATN too, but I couldn't fit this in: 
it's detected in a rather odd way in the PET so that fitting 
it in is somewhat too tricky for this simple program. 

The last nine characters are shown in "screen format". 
This means that you'll have to do a little translation work 
to sort out what some of them mean. On the other hand, it 
allows you to see characters that otherwise wouldn't be 
printed. A carriage return, for example, shows up as a lower 
case m; this is a little confusing at the start, but you'll 
quickly get used to it and it's handy to see everything that 
goes through. Don't forget that original model PETs may show 
upper and lower case reversed. 

I had hoped to show which characters were accompanied by 
the EOI signal. It turned out that time is critical - the 
bus works very fast - and that adding this feature would cut 
down the number of displayed characters from nine to five. I 
opted for the bigger count and dropped the EOI log feature. 

The high speed of the bus makes it difficult to watch 
the control lines in real time. When the "active" PET is 
exchanging information with disk or printer, everything is 
happening very fast, and the "logic analyzer" PET will show 
an amazing flurry of activity on the control lines. Only 
when the activity stops or hangs up will you be able to see 
the lines in their static conditions. 

You may use the program to chase down real GPIB 
problems, or just to gain insight on how the bus works. 
Either way, it will come in handy if you can borrow that 
extra PET unit. 


10 REM IEEE WATCH JIM BUTTERFIELD 
20 REM MAY 1930 

30 P0KE594S8 .• 14 : PR I NT " DAV NRFD NDAC 
48 PRINT"=123456789=®" 

50 SYS1200 


EOI":PRINT" 


T 


f TM" 
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; IEEE 

NATCH 

JIM BUTTERFIELD MAV/R0 

110 

04E0 





*= 

T4E0 

120 

04E0 




BFLfiU 

= 

$E1 

138 

04E0 




DNHSRV 

= 

$E2 

149 

04 E0 




EOISRV 

= 

TE3 

200 

04E0 

46 

El 


START 

LSR 

DFLftU 

210 

04 E 2 

r o 




SEI 


220 

04E3 

HD 

1 “ 
x 

ES 

MAIN 

LDR 

TE312 

230 

04E6 

C3 

EF 



CMP 

#$EF 

240 

04 B 8 

D0 

02 



ENE 

CONT 

250 

04 Eh 

53 




CL I 


250 

04EE 

68 




RTS 


230 

04 EC 

RC 

10 

r~ r, 
CO 

CONT 

LEV 

TE310 ;EOI 

230 

04 EF 

HD 

40 

E3 


LDR 

TES40 ;DRV, NRFD, NDflC 

300 

84C2 

HE 

28 

ES 


LEV 

TE820 ;DATA 

310 

04 C 5 

23 

Cl 



AND 

#TC1 ;ENTRRCT BITS 

320 

04 C 7 

C5 

E2 



CMP 

DNNSflV 

330 

04 C 3 

D0 

ii 



ENE 

DNN 

340 

04CE 

33 




T't'H 


350 

04CC 

29 

40 



AND 

#$40 ;EXTRACT EOI 

360 

04CE 

0fl 




ASL 

ft 

370 

04 CF 

43 

H0 



EOR 

#$H0 

380 

04 El 

C5 

E3 


EOI 

CMP 

EOISRV 

330 

04 D 3 

F0 

DE 



EEC! 

MAIN 

400 

04D5 

.-. cr 

ri _i 

E3 



o7 ft 

EOISRV 

410 

04D7 

3D 

61 

80 


ST A 

$3061 

420 

04 EH 

D8 

D7 



ENE 

MAIN 






;ACTIV 

I TV SE 

EN - UPDATE SCREEN 

430 

04 DC 

-.cr 

. j 

E2 


DNN 

ST A 

DNHSRV 

440 

04 DE 

23 

30 



AND 

#$S0 

450 

04E0 

43 

AQ 



EOR 

#$A0 

468 

04E2 

3D 

cr 

80 


STA 

$3052 

470 

04E5 

10 

ID 



ERL 

NDAV ;HO DRV SEEN 

500 

04E7 

H4 

El 



LBV 

DFLAG 

510 

04E3 

30 

IE 



EMI 

DCONT ;DAV SEEN BEFORE 

520* 

04 EE 

.-.cr 

.ji 

El 



STfi 

DFLAG 

530 

04 ED 

85 

E2 



ST fi 

DNHSRV 

540 

04EF 

H0 

00 



LEV 

#0 

550 

04F1 

E3 

H2 

80 

SCROL 

LDR 

f 30A2 .• V 

560 

04F4 

33 

HI 

30 


STfl 

$3©A1, V 

570 

04F7 

CS 




IHV 


530 

04 F 3 

C8 

03 



r-r-.i t 

L-r t 

#3 

530 

04FR 

D9 

F5 



ENE 

SCROL 

600 

04 FC 

8 A 




TXfl 


500 

04 FD 

43 

FF 



EOR 

#$FF 

600 

04FF 

SD 

R3 

80 


STfl 

$30 A3 

618 

0502 

E0 

RF 



ECS 

MAIN 

640 

0504 

cr 

El 


NBRV 

STR 

DFLAG 

658 

0506 

A5 

E2 


HCONT 

LDR 

dnhs*hv 

3 6 y 

0503 

O Q 

48 



PHD 

#$40 ;NRFD 

670 

050H 

0fl 




RSL 

A 

630 

050E 

43 

H0 



LOR 

#$Ry 

630 

050D 

SD 

57 

30 


ST R 

$3057 

700 

05 1 0 

R5 

E2 



LDR 

DNHSRV 

710 

0512 

23 

01 



AND 

#$1 ; NDflC 

7ii!y 

0514 

4R 




! C p 


730 

0515 

6fl 




ROR 

A 

740 

0516 

43 

R0 



EOR 

#$H0 

750 

0513 

SD 

5C 

30 


STR 

$305C 

760 

85 IE 

D8 

36 



ENE 

MAIN 
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CROSS - REFERENCE 


Jim Butterfield, Toronto 
also in Compute #4 


One of the handy things about the 2040 disk system is 
that it allows you to read programs - or write them, for that 
matter - as if they were data files. 

The possibilities are endless: you can analyze or 
cross-reference programs; renumber them; repack them into 
minimum number of lines deleting spaces, comments, etc.; or 
even create a program-writing program that is tailor-made for 
a particular job. 

This program does cross-referencing of a BASIC program. 
It's written in BASIC: that means that it won't run too fast 
(all those GET statements) but you can read what it's doing 
fairly easily. 

There are two types of cross-references normally needed 
for a BASIC program. One is the variable cross-reference: 
where do I use B$ ? The other is a line-number 
cross-reference: when do I go to line 360 ? CROSS-REF does 
either. An example of both types is shown - the program in 
this case did the cross-references of itself. 


CROSS REFERENCE - PROGRAM CROSS-REF 


A 

270 

280 

300 

310 

390 

400 





AS 

180 

240 

260 

270 

300 

460 

490 

500 

510 

520 


570 

580 









A$( 

100 

200 

330 

340 

350 

360 





B 

190 

200 

220 

320 

330 

340 

350 

360 



B$ 

180 

240 

480 

500 

520 

580 

590 




B$( 

100 

120 

480 








C 

280 

370 

390 

410 

420 

430 

440 

450 

540 

550 

CS 

480 

520 

580 

620 







C( 

100 

140 

150 

160 

310 






Cl 

280 

310 

370 

420 

440 






C2 

130 

150 

205 

280 

370 

3 80 

450 

565 



C9 

310 

410 

420 

440 

470 

480 





J 

140 

150 

200 

210 

220 

330 

340 

350 

560 

630 

K 

200 

210 

220 

320 

340 

350 

360 

565 

570 

580 

L 

260 

280 









L$ 

200 

206 

280 








MS 

330 

340 

360 

370 

450 

460 





PS 

170 

550 









Q$ 

120 

510 









S$ 

120 

280 

590 

610 

620 






X 

200 

220 

560 








x.S 

200 

205 

206 

210 

220 

560 

580 

590 



XS( 

100 

210 

220 

560 







Y 

590 

600 

610 








Z 

540 

600 









z$ 

130 

530 

540 









560 
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100 DIM A$(15),B$(3),X$(500),C(255) 

110 PRINT"CROSS-REF JIM BUTTERFIELD" 

120 Q$=CHR$(34):S$=" ":B$(1)=Q$:B$(3)=CHR$(58) 

130 INPUT"VARIABLES OR LINES" ; Z$:C2 = 5:IFASC(Z$)=76THENC2 = 6 
140 F0RJ=1T0255:C(J)=4:NEXTJ:FORJ=48T057:C(J)=6 sNEXTJ 

150 IFC2=5THENFORJ=65TO90:C(J) =5:NEXTJ:FORJ=36TC38:C(J)=7:NEXTJ:C(40)=8 
160 C(34)=1:C(143)=2:C(131)=3 

170 INPUT"PROGRAM NAME";P$:OPEN1,8,3,"0:"+ P$ +", P, R " 

180 GET#1,A$,B$:IFASC(B$)<>4THENCLOSEl:STOP 
190 IFB=0GOTO240 

200 PRINTL?;:K=X:FORJ=BT01STEP-l:PRINT" ";A$(J) ;:X$=A$(J) 

205 IFC2=6ANDLEN(X$)<5THENX$=" "+X$:GOTO205 

206 X$=X$+L$ 

210 IFX$(K)>=X$THENX$(K+J)=X$(K):K=K-1:GOT0210 
220 X$(K+J)=X$:NEXTJ:X=X+B:PRINT:B=0 
230 REM: GET NEXT LINE, TEST END 
240 GET#1,A$,B$:IFLEN(A$)+LEN(B$)=0GOTO530 
250 REM GET LINE NUMBER 

260 GET#1,A$:L=LEN(A$):IFL=1THENL=ASC(A$) 

270 GET#1,A$:A=LEN(A$):IFA=1THENA=ASC(A$) 

280 C=C2:C1=-1:L=A*256+L:L$=STR$(L) :IFLEN(L$)<6THENL$=LEFT$(S$,6-LEN(L$))+LS 
290 REM GET BASIC STUFF 

300 GET#1,A$:A=LEN(A$):IFA=1THENA=ASC(AS) 

310 C9=C(A):IFC9>C1G0T0380 

320 K=0:IFB=0GOTO360 

330 FORJ=lTOB:IFA$(J)=K$GOTO370 

340 IFAS(J)<M$THENNEXTJ:K=B:GOTO360 

350 FORK=BTOJSTEP-1:A$(K+l)=A$(K):NEXTK 

360 B=B+1:A$(K+l)=M$ 

370 C=C2:C1=-1:M$="" 

380 IFC2=5GOTO420 

390 IFA=1370RA=13 80RA=1410RA=167THENC=6:G0T047 0 

400 IFA=44ORA=32GOTO470 

410 IFC9<>6TIlENC=9:GOTO470 

420 IFC9=CTHENC=-1:C1=4 

430 IFO6G0T047C 

440 IFC<0ANDC9>C1ANDC9>6THENC1=C9 :G0T0460 
450 IFC2=5THENIFLEN(M$)>2ORC>0GOTO470 
460 M$=M$+A$ 

470 OHC9+1GOTO190,480,480,480:GOTO300 
480 B$=B$(C9):C$=”" 

490 GET#1,AS:IFA$=""GOTO190 
500 IFA$=B$GOTO300 
510 IFA$<>Q$GOTO490 
520 AS=B$:B$=C$:CS=A$:GOTO490 
530 CLOSE1:INPUT"PRINTER";Z$ 

540 C=3:Z=6:IFASC(Z$)=89THENC=4:Z=12 

550 OPEN2,C:PRINT#2:PRINT#2,"CROSS REFERENCE - PROGRAM ";PS 
560 X$="":FORJ=lTOX:A8=XSlJ) 

565 IFC2=6THENK=6:GOTO580 

570 FORK=lTOLEN(A$):IFMID?(A$,K,1)<>" "THENNEXTK:STOP 
580 B$=LEFT$(A$,K-l):C$=MIDS(A$,K+l):IFX$=B$GOTO600 
590 PRINT#2:Y=0:X$=B$:PRINT#2,X$;LEFT?(S$,5-LEN(X$)) ; 

600 Y=Y+1:IFY<ZGOTO620 
610 Y=1:PRINT#2:PRINT#2,S$; 

620 PRINT#2,LEFT$(S$,6-LEN(C$) ) ;C$; 

630 NEXTJ:PRINT#2:CLOSE2 
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PROGRAM CROSS-REF 


CROSS 

REFERENCE - 

190 

470 

490 

205 

205 


210 

210 


240 

190 


300 

470 

500 

360 

320 

340 

370 

330 


380 

310 


420 

380 


460 

440 


470 

390 

400 

480 

470 


490 

510 

520 

530 

240 


580 

565 


600 

580 


620 

600 



430 450 


Beading a .BASIC P ro gram as & Fi le 

To read a BASIC program, you must OPEN it as a file, 
using type P for PRG rather than S for SEQ. Line 170 of 
CROSS-REF does this. 

If you read a zero character from the program (that's 
CHR$(0), not ASCII zero which has a binary value of 48), the 
GET# command gives you a small problem: it will give you a 
null string instead of the CHR$(0) you might normally expect. 
You need to watch this condition and correct it where 
necessary: you'll see this type of coding in lines 260, 270 
and 300. 

The first thing to do when you OPEN the file is to get 
the first two bytes. These represent the program start 
address, and should be CHR$(1) and CHR$(4) for a normal BASIC 
program starting at hexadecimal 0401 (see line 180). 

Nov/ you're ready to start work on a line of BASIC. The 
first two bytes are the forward chain. If they are both zero 
(null string) we have reached the end of the BASIC program; 
otherwise, we don't need them for this job (see line 240). 

Continuing on the BASIC line: the next pair of bytes 
represent the line number, coded in binary. We're likely to 
need this, so we calculate it as L (lines 260 and 280) and 
also create it's string equivalent, L$. We take an extra 
moment to right-justify the string by putting spaces at the 
front so that it will sort into proper numeric order. 

From this point on we are looking at the text of the 
BASIC line until we reach a zero which flags end-of-line. At 
that time we go back and grab the next line. 
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Detailed Syntax Analysis 


When digging out variables or line numbers, we have 
several jobs to do. As we look through the BASIC text, we 
must find out where the variable or line number starts. For 
a variable, that's an alphabetic character; for a line 
number, it's the preceeding keyword GOTO, GOSUB, THEN or RUN 
followed by an ASCII numeric. 

Once we've "aquired" the variable or line number, we 
must pick up its following characters and tack them on. For 
line numbers it's strictly numeric digits. For variables, 
things are more complex. Both alphabetic and numeric digits 
are allowed, but we should throw away all after the first two 
since GRUMP and GROAN are the same variable (GR) in PET 
BASIC. We must also pick up a type identifier - % fcr 
integer variables or $ for strings - if present. Finally, we 
have to spot the left bracket that tells us we have an array 
variable. 

To help us do this rather complex job, we construct a 
character type table. Each entry in the table represents an 
ASCII character, and classifies it according to its type. 
Numeric characters are type 6. If we're looking for 
variables, alphabetic characters are type 5, identifiers are 
type 7, and the left bracket is type 8. 

To help us in scanning the BASIC line, we define the 
end-of-line character as type 0; the quotation mark as type 
2; the REM token as type 3; and the DATA token as type 4. 

Every time we get a new character from BASIC, we get its 
type from table C as variable C9. If we're looking for a new 
variable or line number, we see if it matches C - alphabetic 
for variables, numeric for line numbers. Once we find the 
new item, we kick C out of range and start searching based on 
the value of Cl. This mechanism means that we can search for 
a variable starting with an alphabetic, and then allow the 
variable to continue with alphabetics, numerics or whatever. 

To summarize variables in this area: A is the identity 
of the character we have obtained from the BASIC program, and 
C9 is its type. If we're searching, C is the type we are 
looking for; otherwise it's kicked out of range, to -1 or 9. 
Cl tells us we're collecting characters and what type we're 
allowed to collect. C2 is out variables/line numbers flag; 
it tells us what we're looking for. M$ is the string we've 
assembled. 

The routine from 480 to 520 scans ahead to skip over 
strings in quotes and DATA and REM statements. 

Collecting the Results 

For each line of the BASIC program we are analyzing, we 
collect and sort any items we find, eliminating duplicates. 
They are staged in array A$ in lines 320 to 370. 

When we're ready to start a new line, we add this table 
to our main results table, array X$, in lines 200 to 220. To 
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save sorting time, we merge these pre-sorted values into the 
main table. At this point, our data has the line number 
stuck on the end; this way, we're handling two values within 
a single array. 

Because the merging of the two tables must start at the 
top so that we can make room for the new items, the items are 
handled in reverse alphabetic order. We print this to the 
screen so that you can watch things working. At BASIC speed, 
this program can take quite a while to run; it's nice to 
confirm that the computer is doing something during this 
period. 

Final jamLpu-t. 

We finish the job starting at line 530. It's mostly a 
question of breaking the stuck-together strings apart again 
and then checking to see if we need to start a new line. 

Do Your Own Thing 

The size of array X$ determines how large a program you 
can handle. The given value of 500 is about right for 16K 
machines; with 32K you can raise it to 1500 or so. 

If you're squeezed for space, change array C to an 
integer array C%. As you can see from the cross reference 
listing, you'll need to change lines 100, 140, 150, 160 and 
310 - see how handy the program is ? 

As mentioned before, run time is slow. A machine 
language version - or even a BASIC program with machine 
language inserts - would speed things up dramatically. 

NOTE: Some ASCII printers may give double spaced output. If 
this is a problem the PRINT#2 statements in 590 and 610 
should be changed to PRINT#2,CHR$(13) ; . 
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Better Auto Repeat 


David Berezov/ski of ASCII Computing, Thunder Bay 
Ontario, has submitted another repeat key program which might 
be used instead of the one printed in Transactor #7. 


0 REM EEL fiCpTRELE R! ITO-REPEAT FV. . . 

1 REM DRVID BEREZOWSKI 

2 REM ORIGI NHL CODE TOKEN FROM BEST OF TERNS. VOL 1 

3 REM UPDATED FOR HEW ROM AND PUT INTO RELOCATABLE FORM BV BOV IB ] 

4 REM RELOCATABLE FORMAT TAKEN FROM J. BUTTERFIELDS TRACE ROUTINE 

5 K=0 


.OUSKI 


10 F'F: I NT " BMTHIS PROGRAM 


SAUT0-REFEAT5 IN 


20 PRINT"ANV SIZE MEMORY THAT IS FITTED.. 
30 IF PEEK<65G00>=254THENE=52'B =0 : GOTO60 
40 IFF'EEK (65000 > 0192THENPRI NT " ?? I DON'T 


W" 

KNOW 


•?? " ■ end 


50 

E=134 

• T._ 

k — 

3 : F 

3RJ=1T 

156' R 

EADZ - NE 

KTJ 

60 

PRINT 

«' T C 

X 

EE 

T HR 

T » »r»> ! 

i T : .j 

L 'H 

v'E 

AN 1 

• 


70 

IFE=1 

~ ,1 -r u 

_> T i , i 

ENP 

RINT“ORIG 

IN 

1 1 ! 
n i.... 




36 

IFE=5 

2THENRRINT 

"UPGRADE 

i: • 




30 

PRINT 

n r;. 

o 

M. " 







.“icr 

cr ORZ= 

1 TO 2 

000 

‘ME 

...» ~r 






100 

CRT R 

162 

*7* 

181 

,255, 1 

cr *7 

zt cr 

, 3 , 202 , 

208 

101 

BfiTR 

243 

, 50 

, IS 

i .»•* .j* Z l .* 

£ ~ cl 

9, 1 

••4 CT -1 

~+ -.J .* J 

z« *~« 

145 

102 

DATA 

96, 

165 

•4 ZB y^ -~i j7j -4 

cr cr 

03, 

;~4 ^ 

•Z ! .< z 

6:3 

103 

BATA 

0, 1 

33 , 

1 S 

169.4 4y 

1 

.* .L 

3:3 , 

1 i.; ( Z'fvP: , 

■ 3 

104 

BATA 

230 

, 15 

•< zr 

X 

5,16, 1 

37 

•4 nr 

, { 

j . 1 .!. 


1 LI 5 

BflTfl 

: f,9 

, f, , 

1 O'” 

4 -4 

, x B.' i : Z‘ 


cr r: 

i 

H Z . 

} ( 1 cr; 

i 

1 <~<f t 

BflTfi 

2 z' 2 

1 Z; 

4, 1 

5,76,46, 

230 




ISO 

REM++++++++++++++********** 



160 
■* 7 f-j 

REM* 

F'CMi 

END L 

A: jk A; jk ii'i 

F U 

:i 4 * 

F'GRABE 

4-4 4‘44 4 

■r 

44 

fiTn 

• 4 - 4 4 

;4 



200 

rzf it 

BATA 

T- -7- T- T- 

162 

T- T- T- 

““•T 

181 

T- -7- T- • i • T T 

, 255, 1 

•T T- 

nr "*r 

■J ;• 

1 '7' 


2 R 2 


201 

BATA 

248 

, 56 

, 16 

3 .. 223 

2 z> 



1 41 

, 26 

202 

BATA 

Rb .. 

•4 •“7~t 

i r z- 

nr 

•••. 

.• uZ .. c. U 1 

.1 

cr nr 
. J ._i 

203 . 

x -Z : , 

16:3 


BATA 

M ( 1 


40 . 

•j CQ o 

. 1 


uZ 1 


? g 

204 

DATA 

230 

, 60 

H ZB 

5,61,1 


, 60 


;• -4 ~ 


205 

BATA 

1 ca 

.< 6 .* 

4 “i -~i 

,61,16 

2.4 

cr cr 

uZ -.J •_ 1 

i "i 

■Z> 

2 

206 

BATA 

2 2 uZ 

•j ~ 

.* i ■_ 

4 , 60 * 76 , 1 

•*j Z 

2 2 

0 



1000 b'2 = 

PEEL 

< E ’> 

+PEEK<E+1 

j $ 

•~i cr Z". 







>l=S2-56-D 
.010 FORJ=S1T0S2-1 
. O20 RERUN • F'OKEJ, N ' WENT J 
. 030 S= I NT ( S1,‘256 ) • T=S 1 -3+256 
. 840 POKE0,76'POKE1,T+13+D/2'POK 
0350 POKEE.. T : POKEE+i , S 
. 060 POKEE-4,T:POKEE-3,S 
. 130 PR I NT" M»===AUTO-REPEAT=== 11 
1140 PR I NT "WO ENABLE SYS" SI 



150 

PR IN 

T"TO BIS 

ABLE 3 

4 1 !! 

T Z' Z' 

•4 





160 

PR IN 

T"MCHANG 

E SPEED 

WIT 

• CB 

.-'ll.- r~ n 

J r c. z 

1 4 ‘4 

1 "f r: 11 ! 1 .* k 

-f 

170 

PRINT"CHANGE 

BELAY 

WITH 

' P'3 

i . 1— II -4 

. . EZ -Z- J. 

4-i" : Q 

+ K ,, f7 N 


ISO 

PRINT"M3TG E 

ZF'ERIEN 

BE T 

-IE F 

h n icjrz 

RTI 

jf-i FROM 

i 

190 

PRIM 

T" a-LEY-B 

OUNCE T 

HAT 

ALL 

7RP:.v--- 

— Q 0 

JMCBp'Z 

i 

200 

PRIM 

t" aril !s' r 

PUT UP 

WITH 

T O 

V f- 1 

:ing 

" Z; 1 : 

•4 

210 

PR IN 

T" niiTH 

'.,'pi ! iprc 

2 tl Z 1 

' THR 

|. t cr ; i 11 



•4 

2 2 U 

PR IN 

T"iNOTE' 

YOU MUS 

51 

t -• T! ; ’ 

r- L z_! ! ” r 

••••j.... z: 1 

Fprp'y •• 

-4' 

230 

i r Z> r. j 1 1 

T" BEFORE' 

USING 

THE 

ZZ> >Z’ 

z " " t “ r zb •> i 
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S. Donald Rossland, B.C 


This machine language program will convert strings to 
the correct upper/lower case condition for printing on CBM 
2022/23 printers with an original ROM PET. It is relocatable 
so will operate anywhere in memory. The routine given here 
puts it in the second cassette buffer, but changing the 
location given in line 10100 will place it v/herever you wish. 

There are several things which must be done in order for 
the routine to operate correctly. These are best 
demonstrated by the following program. 

0 ML$="" : GOSUB 10000 
10 POKE 59468, 14 
20 ML$= "azl2.3AZ" 

30 PRINT ML$ : OPEN 4,4 : PRINT#4,ML? 

40 SYS 826 

50 PRINT#4,ML$ : CLOSE 4 
60 PRINT ML$ 

70 LIST 


10000 

DATA 

160, 

2, 

177, 

124, 

141, 

251 

10010 

DATA 

0 . 

2 00, 

177, 

124 . 

141, 

252 

10020 

DATA 

0 , 

200, 

177, 

124, 

141, 

253 

10030 

DATA 

0 , 

172, 

251, 

0 , 

136, 

177 

10040 

DATA 

252, 

201, 

219, 

176, 

22, 

201 

10050 

DATA 

193, 

144, 

5, 

56, 

233, 

128 

10060 

DATA 

208, 

11, 

201, 

65, 

144, 

9 

10070 

DATA 

201, 

91, 

176, 

5, 

24, 

105 

10080 

DATA 

128, 

145, 

252 , 

192, 

0 , 

208 

10090 

DATA 

223 , 

96 






10100 FOR A = 826 TO 881 : READ B 
10110 POKE A, B : NEXT : RETURN 

Note that line 20 is altered once the program is RUN. 
This is done by the SYS command in line 40. 

Nov; alter line 20 to: 

20 ML? = ML? + "azl23AZ" 

and reRUN from line 0. This time line 20 has not been 
changed in the listing. Whenever a string is formed by 
concatenation, the new string is stored in a location 
different from the original strings i.e. up in high RAM. It 
is this new location that has been altered. The major 
advantage in working on a string stored av/ay from the program 
listing is that you don't have to worry if the string has 
been previously altered. 

Nov? change line 0 to: 

0 A = 0 : GOSUB 10000 

and reRUN from line 0. Two points to note are: 

1. Hake sure that the variable string to 
be printed is #1 in the variable 
table, and 

2. form the string to be printed by 
concatenation. 
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ASSEMBLY 


LDY 2 
LDA 124, 

STA 251, 

I NY 

LDA 124, 
STA 252, 
I NY 

LDA 124, 
STA 253, 


LDY 251, 
DEY 


LDA 252, 

CMP 219 
BCS 22 
CMP 193 
BCC 5 


SEC 

SBC 128 
BNE 11 


CMP 91 
BCS 9 
CMP 6 5 
BCC 5 


CLC 

ADC 128 


STA 128, 


CPY 0 
BNE 223 

RTS 


LANGUAGE LI STING )! U PPER/LOWER CASE CONVERTER 
MO\ E VAR] AIL,! ' OINTERS TO ZERO PAGE 
Set Y register oifset. 

Load A with byte from variable table pointed to by 
124/125 + Y 

and move to location 251. This byte is the 
character count. 

Increment offset. 


Shift start address of string to zero page. 


ADJUST STRING 

Load Y with string character count from location 251. 
Decrement Y offset. Y points to character to be 
altered next. 

TEST FOR LOVJER CASE 

Load A with string byte pointed to by 252/253 
and offset by Y 

and compare to lower case 'z' and 
if greater than, skip to COMPARE Y. 

Compare to lower case 'a' and 

if less than skip to TEST FOR UPPER CASE. 

ADJUST LOWER CASE 

Set carry flag 

Subtract 128 from the string byte in A and 
always skip to STORE MODIFIED CHARACTER. 

TEST FOR UPPER CASE 

Compare to upper case 1 Z' and 
skip to COMPARE Y if greater than. 

Compare to upper case 'A' and 
skip to COMPARE Y if less than. 

ADJUST UPPER CASE 

Clear carry flag. 

Add 128 to string byte. 

STORE MODIFIED CHARACTER 

Store byte at location pointed to by 
252/253 and offset by Y. 

COMPARE Y FOR STRING END 

Compare Y to 'O' and 

skip to DEY in ADJUST STRING if string 
not finished. 

Otherwise, return to BASIC. 
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RESTORE DATA Line Program Paul Barnes 

Deseronto, Ontario 

Executing < ne RESTORE command causes the next READ to 
occur at the veiy first DATA element in your program. This 
subroutine can t > used to RESTORE the DATA line pointer at a 
line other than che first. 

It doesn't matter if you don't give the number of the 
line that has the ’’DATA" keyword in it that you want to start 
at, as long as it is past previous DATA statements so that 
the next data to be read will be the one desired. 

4 REM ******************************* 

5 REM *** RESTORE DATA LINE PGM *** 


6 REM *** BY PAUL BARNES 

7 REM *** DESERONTO, ONTARIO 


8 

REM ***************************** 

10 

DATA 

166 , 

142 , 

134, 

8, 

166, 143 

10 

DATA 

166. 

60. 

134. 

17. 

166, _61 

15 

DATA 

134, 

9, 

32, 

34, 

197, 144 

15_ 

DATA 

134, 

18, 

32, 

44. 

197, 144 

20 

DATA 

Hr 

166, 

174, 

142, 

1 *5 O 7 

_L f 

20 

DATA 

11, 

166. 

92, 

142, 

132, 3 

25 

DATA 

166, 

175, 

142, 

133, 

3 96 

25 

DATA 

_J.66, 

5.3, _ 

142, 

133, 

2 96 

30 

DATA 

162, 

0, 

142, 

132 , 

3, 162 

35 

DATA 

0, 

42, 

133, 

3, 

96 


40 FOR F = 826 TO 860 : READ S : POKE 
F, S : NEXT 

50 DATA "GOOD-BYE!" 

60 DATA "ANYBODY HOME?" 

70 J = 26545 * 10 : FOR D = 1 TO 100 : 
DATA "MAYBE!" 

80 NEXT : DATA "HI!" 

100 DATA "GO HOME!" 

110 DATA "GO DIRECTLY TO JAIL!" 

120 DATA "DO NOT PASS GO!" 

130 DATA "DO NOT COLLECT $100!!!" 

200 GOSUB 1000 

210 FOR T = 1 TO 3 : READ A$ : PRINT A$ 
230 NEXT : PRINT : GOTO 200 

998 REM *** SUBROUTINE TO RESTORE DATA 

999 REM *** AT A CERTAIN LINE NUMBER 
1000 INPUT "RESTORE TO LINE"; A 

1010 H = INT (A/256) : L = A - H * 256 

1020 REM POKE CURRENT DATA LINE POINTER 
1030 POKE 142, L : POKE 143, H 

1Q 3Q PO KE_ 60, L ; POKE _&Li H 

1040 SYS 826 

1050 L = PEEK(900) : H = PEEK(901) 

1060 IF L=0 AND H=0 THEN PRINT "LINE NOT 
FOUND" : GOTO 1000 

1070 REM POKE MEMORY ADDRESS OF DATA LINE 
1080 A = H * 256 + L - 1 : H = INT(A/256) 

: L = A - H * 256 

1090 POKE 144, L : POKE 145, H 

10 9 . 0 PPKE _ 62. L ; POKE _ 63. H 

1100 RETURN 


Editors Note: Paul has submitted the above program for tne 
Original ROM set. The duplicate underlined statements are 
for BASIC 2.0 ROM. 
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REMAINDERS _ 

One little known use of the MID? function is "remainder 
string". If the third parameter of the MID? function is 
omitted the resulting string will be every character to the 
right of the specified start position for the string being 
operated on. For example: 

1. A? = "1234567 89" 

2. B? = MID? ( A?, 2, 4 ) ;equals "2345" 

3. E$ = MID? ( A$, 2 ) ;equals "23456789" 

This is not the same as RIGHT? as this function returns 
an absolute number cf characters starting from the rightmost 
position. This application works best when the right-hanci 
p>ortion of a string is wanted and the string length is not 
known. 


BASIC 4.0 Preliminary Note _ 

BASIC 4.0 ROMs for the 40 column PET are on their way! 
The main differences are: 

1. Faster garbage collection 

2. Disk commands included in B/iSIC 

Of course most SYStem calls to ROM will require modification 
but PEEKS and POKES should remain valid except for some 
locations that may have been labelled unused in BASIC 2.0. 
More on BASIC 4.0 in a later issue. Also see Jim 
Butterfield's new BASIC 4.0 memory maps, this issue. 

All BASIC 2.0 programs will run on BASIC 4.0 except for 
one minor gotcha. BASIC 4.0 has reserved two more variables 
for it's ov/n use; DS and DS$. When called, DS will contain 
the error number from the disk and DS? will return the error 
number, description, track and sector much like hitting ">" 
and return with DOS Support. The same rule applies to DS and 
DS? as ST, TI and TI?; they must not appear on the left of an 
" = " sign. If they do a ?SYNTAX ERROR will result. So if 
your programs use either of these two new reserved variables, 
it would be a good idea to change them before RUNning on 
BASIC 4.0. This could be easily done by running your 
programs through Jim Butterfield's Cross-Ref program from 
Transactor #9, Vol 2. 


The Transactor is produced on the new CBM 8032 using 
WordPro IV and the NEC Spinwriter. 
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ID Changer 


COMPUTE magazine, issue #5, published an article that 
allows the user to change the ID of a diskette. This can 
cause irreparable damage to your disks! The program changes 
only the the ID that gets printed with the directory. 
However, the ID precedes every sector on the disk and these 
do not get changed. An update will be published in the next 
COMPUTE but this early warning will be appreciated by some 
I'm sure. 


Printer ROMs 


Recent deliveries of Commodore printers have been 
released with the 04 ROM. Though this ROM fixes existing 03 
ROM bugs, it has a tendency to lock into lower case, 
inhibiting upper case character printing. This happens after 
sending to secondary address 2 (receive data for format). 
Commodore has discontinued the 04 printer ROM and until the 
08 ROM is released (sometime in the fall) the following 
software fix will prevent this bug from appearing. Lines 30 
and 40 insert a 25 jiffy delay prior to OPEMing the format 
channel: 


10 OPEN 4, 4, 0 
20 PRINT#4, "HELLO" 

30 T = TI 

40 IF TI - T < 25 THEN 40 
50 OPEN 5, 4, 1 

60 PRINT#5, " AAA 999 ...etc. 


This bug can also be used to your advantage i.e. 
to the printer in lower case which was, in 
impossible on printers containing an 03 ROM. 
however, an easier way of implementing it: 


for LISTing 
most cases. 
There is, 


100 OPEN 7, 4, 7 : PRINT#7 : CLOSE 7 


...puts the printer in lower case mode. Power down and up 
gets you back to upper case and graphics. 


PRINT Speed - Up _ 

In Transactor #2, Vol 2, a POKE was published that made 
PRINT to the screen much faster than normal. On recent 
machines this POKE can not only cause the machine to crash 
but may also result in internal damage! Avoid including this 
in your programs...especially those that you may want to RUN 
on other peoples machines. Software portability is very 
important, particularly business software. If your package 
crashes your clients machine, you may find yourself in a very 
embarassing situation. 


Verbatim HD 577 Super Minidisk 

In the past Commodore has frowned on the use of Verbatim 
diskettes for the 2040 floppy disk, particularly the MD 
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525-16. Verbatiir, recognized the problems with their disks 
and have improved the quality substantially. 
Result: The MD 577 Super Mini. 

First, the thickness of the jacket PVC material has been 
increased from 7.5 to 8 mils giving the disks greater 
rigidity. 

Secondly, the lamination pattern, which secures the 
inner lining to the jacket, was redesigned to eliminate 
potential "pillowing" problems. "Pillows" are minute raised 
areas on the lining surface which can interfere with the 
sideways movement of the disk. 

Most importantly though, the new Verbatim: HD 577s are 
provided with a factory installed "hara hole" or hub 
reinforcement ring, thus creating better centering ability 
and reducing the possibility of hub damage. Coincidentally, 
the performance of almost any diskette can be substantially 
improved by adding a hub ring prior to formatting. 

Part of the problem was also the boxes they were 
packaged in, which put creases in the front two or three 
disks. These are no longer used. 

We have tested the Verbatim. 577s and found them to be of 
quite high quality. We've also decided to use them for 
distributing Commodore software which should appear on the 
market this fall. 
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Controlling Garbage Collections 


Henry Troop, 
Toronto, Ont. 


We all know that the PET garbage collection can take an 
annoyingly long time. One highly frustrating time for a 
garbage collection to happen is while you are executing a GET 
loop input from the keyboard. There you are, typing away, and 
suddenly the cursor is still flashing at you, but no inputs are 
accepted. 

To avoid this, we'd like to force an early garbage 
collection, at the start of the input, but only if it would 
have happened anyway. 

First things first. A GET loop is very productive of 
garbage collections because it uses lots of memory. The 
typical form of this loop is: 

10 GET A$: IF A$ = "" THEN 10 
20 B$=B$+A$ 

What this does is create a set of partial strings. If the 
input is 'Mary had a little lamb', then the strings are: 

M 

Ma 

Mar 

Mary 

and so on to 

Mary had a little lam 

Mary had a little lamb 

That's a lot. Exactly how much ? We could count the 
number of characters and sum the numbers from 1 to n, but a 
rule of thumb is n squared over 2. (A more exact figure is (n 
squared + n)/2) For 22 characters, the memory used is 242 
bytes. For 80 characters, it's around 3240 bytes. 

So, what can we do about it. Well, we need some way of 
determining the free memory space. FRE(0) will do this - but 
it will cause a garbage collection, and we don't really want 
one yet. Let's define a function, FHFR(X) : 

1 DEF FNFP.(X) = PEEK (48) + 256*PEEK(49) - (PEEK (46) + 

25G*PEEK(47)) 

That's simply the distance between the beginning of 
strings and the end of arrays. The argument is a dummy, just 
like FRE(X) . 

Our test then is: 

5 IF FMFR(X) < (L*L)/2 THEM Q = FRE(0) 
where L is the anticipated maximum string length. 

One peculiarity of FNFR is that the statement: 

PRINT FNFR(0)-FRE(0) is almost never the same as: 

PRINT FRE(0)-FNFR(0) which is always 0. 
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True ASCII Output 


Henry Troup, 
Toronto, Ont. 


We are all aware that the PET does not use true ASCII 
coding internallly. However, many of us have printers that do 
use real ASCII. In order to get upper and lower case 
operation, some code conversion is needed. 

In this article, I shall present two ways of doing the 
conversion: one in BASIC, and one machine language. Both 
operate by a table lookup. This has the advantage that any 
other code conversion (to screen poke, Baudot or teletype code, 
for example, or ISO, or EIA, or what have you) can be had 
simply by changing the table. Or, a simple conversion to lower 
case can be had by ANDing each byte with 127. 

I personally keep the conversion table in a disk file. It 
is appended at the end of this article. 

First, the BASIC method. We dimension an integer array, 
M%(255), and use it as the table. Then we assign the string to 
be converted to S$. 

1000 REM CONVERSION ROUTINE 
1010 M$ ="" : IF S$= "" THEN 1050 
1020 FOR I = 1 TO LEN(S$) 

1030 M$ = M$ + CHR$ (M% (ASC (MID$( S$ ,I))) ) 

1040 NEXT I 
1050 RETURN 


This is slow, but tolerable if you're not doing too much 
conversion. It uses 519 bytes for storage of the table, and 
needs an available space of about five times the length of the 
string for working storage (it will work with less, but garbage 
collections will cause delays). 

Now, the machine language method. This is faster and uses 
less storage. Here is the assembler listing. This program 
operates on the variable after the SYS. You must set up the 
table (anywhere you can get 256 bytes of free memory), and move 
the BASIC pointers. Then you can call the program. 
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;convert2.src 

;convert petascii to true 

;ascii by lookup 



si = $dd 

;a convenient place to put 
;the pointer (used in tape 


ts = $7f00 
va = $44 

;start of table 

. skip 

* = 826 


. skip 




Ida si 
pha 

Ida sl+1 
pha 

jsr $cdf8 ;check comma 

jsr $cf6d ;find variable 

Ida $07 ;check type 

bne start 

jmp $cc9a ;type mismatch error if numeric 

. skip 

start cpx #$00 ;check for null string 

;or undefined variable 

beq null 
ldy #$02 

Ida (va),y ;ptr lo 

sta sl+1 

dey 

Ida (va),y ;ptr hi 

sta si 

dey 

Ida (va),y ;length 

tay 

beq null 
dey 

loop2 Ida (si) ,y 

;any character handling routine 
;can be substituted for the 
;next lines 

tax 

Ida ts,x ;do table lookup 

sta (sl),y ;put back in string 

dey 

cpy #$ff ;test for end 

bne loop2 

null pla ;restore zero page 

sta sl+1 
pla 

sta si 
rts 

. end 

;to use this routine: 

;sys 826,(string variable) 

;the converted string ]Lis returned into the original 

space 

;note: if the variable is defined in text, it will be 
changed in text ! 

;string array variables work, except for the 0th element 
;undefined variables are taken as nulls. 

;undimmed arrays will be created 
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And as a basic loader: (which locates the table from the 
top of memory pointer) 


10 

DATA 

165, 

221 , 

72, 

165 , 

222 , 

72 

15 

DATA 

32, 

248, 

205, 

32 , 

109, 

207 

20 

DATA 

165, 

7, 

208, 

, 3 

, 76 

, 154 

25 

DATA 

204 , 

224 , 

0, 

240 , 

31, 

160 

30 

DATA 

2, 

177, 

68, 

133 , 

222 , 

136 

35 

DATA 

177, 

68, 

133 , 

221, 

136 , 

177 

40 

DATA 

68, 

168, 

240 , 

14, 

136 , 

177 

45 

DATA 

221, 

170, 

189, 

-1, 

-2, 

145 

50 

DATA 

221, 

136, 

192 , 

255 , 

208, 

243 

60 

DATA 

104 , 

133, 

222, 

104 




1000 FOR X = 826 TO 914:READ P 

1010 IFP = -1 THEN P = PEEK(54):REM RELOCATE TABLE 
1020 IFP = -2 THEN P = PEEK(53) 

1030 POKE X,P :NEXTX 


A Sample Initialization: 


10 POKE53,PEEK(53-1):CLR:REM MOVE TOP OF MEMORY 
20 OPEN4,4:G05UB1000:REM GET PROGRAM 

40 OPEN5,8,5,"CONVERT,S,R":REMM GET TABLE FROM DISK 
50 FORX-0TO255 : INPUT#5 ,M% -.POKEPEEK ( 53) +X, M% : NEXTX: CLOSES : REM 
PUT TABLE IN 

60 S $-"THIS IS A TEST": SYS826,S$:PRINT#4,S$:REM ACTUAL 
CONVERSION 

This is much faster, and needs only the 256 bytes to store the 
table. The conversion table follows: 


10 01 

data 

0, 

1, 

2, 

3, 

4, 

5, 

6, 

7, 

8, 

9 

1 01 0 

d a t a 

10, 

11, 

12, 

13, 

14, 

15 





.1020 

ci a t a 

16, 

17, 

18, 

19, 

20, 

21, 

22, 

23, 

24, 

25 

1 0 3 0 

oat a. 

26, 

27, 

28, 

29, 

30, 

31, 

32 , 

33, 

34, 

35 

10 40 

CJ a t a 

36, 

37, 

38, 

39, 

40, 

41, 

42, 

43, 

44, 

45 

1050 

cat a 

46, 

47, 

48, 

49, 

50, 

51, 

52, 

53, 

54, 

55 

106 0 

data 

56, 

57, 

58, 

59, 

60 , 

61, 

62, 

63, 

64, 

97 

1070 

data 

98 

, 99, 

100 , 

101 , 

102 , 

103 , 

104 , 

105 , 

106 , 

107 

1080 

data 

100, 

109, 

110, 

111, 

112 , 

113, 

114, 

115 , 

116 , 

117 

10 90 

data 

118, 

119, 

120 , 

121 , 

122 , 

91, 

92, 

93, 

94, 

95 

1100 

data 

96, 

97, 

98, 

99, 

100 , 

101 , 

102, 

103 , 

104 , 

105 

1110 

data 

106 , 

107 , 

108, 

109, 

110 , 

HI, 

112, 

113, 

114, 

115 

1120 

data 

116, 

117, 

118, 

119, 

120, 

121, 

122, 

123 , 

124 , 

125 

1130 

data 

126 , 

127 , 

128, 

129 , 

130 , 

131 , 

132 , 

133 , 

134, 

135 

1140 

data 

136, 

137 , 

138, 

139, 

140 , 

141, 

142, 

143 , 

144, 

145 

1150 

data 

146, 

147, 

148, 

149, 

150 , 

151 , 

152, 

153, 

154, 

155 

1160 

data 

156, 

157 , 

158, 

159, 

160 , 

161, 

162, 

163, 

164, 

165 

1170 

data 

166, 

167 , 

168, 

169, 

170, 

171, 

172 , 

173, 

174, 

175 

11 80 

data 

176, 

177, 

178, 

179, 

180 , 

181, 

182, 

183 , 

184, 

185 

1190 

data 

186, 

187, 

188, 

189, 

190 , 

191, 

192 , 

65 

66, 

67 

1200 

data 

68, 

69, 

70, 

71, 

72, 

73, 

74, 

75, 

76 

77 

1210 

data 

78, 

79, 

80, 

81, 

82, 

83, 

84, 

85, 

86 , 

87 

1220 

data 

88, 

89, 

90, 

219, 

220 , 

221, 

222 , 

223 , 

224 , 

225 

1230 

data 

226 , 

227 , 

228 , 

229, 

230 , 

231 , 

232, 

233 , 

234 , 

235 

1240 

data 

236 , 

237 , 

238, 

239, 

240 , 

241 , 

242 , 

243 , 

244 , 

245 

1250 

data 

246 , 

247 , 

248 , 

249, 

250, 

251 , 

2 52 , 

253 , 

254 , 

255 
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PET 2040 DISK BUFFER T/O ROUTINE J.HOOGSTRAAT, 

BOX 20. SITE 7. SS 1, 
CALGARY. ALTA. 

The major difficulty in programming direct access 
routines for the PET 2040 disk drives is the computation of 
the exact location of the recorded information on a disk 
sector, for the reason that the PET prints its data to the 
disk rather than transferring it byte for byte. 

This results in variable length records on each disk 
write, unless the programmer takes special care converting 
each variable to a fixed length string variable before 
writing it to the disk. This is not too bad for string 
variables, but other variables could be ranging in length 
from one to more than ten characters after conversion to an 
equivalent string variable. 

Suppose we want to program a direct access file 

consisting of records made up of an ITEM-NO, DESCRIPTION and 
COST. 

The ITEM-NO ranges from 1 to 9999 

The DESCRIPTION’is 12 bytes long 

The COST ranges from .00 to 9999999.00 

Me need 4 characters for the ITEM-NO, 12 for the 

DESCRIPTION and 10 for the COST. This would total up to 26 
characters per record, but in order to be able to read it 
back we have to add at least one carriage return character 
after the COST string. After reading we can de-compose the 
information with MID$ calls. Or, if we wish to be able to 
update each field individually, a carriage return character 
must be added after each field, which ups our total record 
length to 29 characters 

I personally found this method rather wasteful and 
cumbersome to program with all the STR$ calls and BLANK 
padding. No other software seemed to be available, except 
for Bill Macleans Block Get Routine published in the 
Commodore Transactor Vol 2, Dec 31, 1979. An excellent 

routine, but it can only read from the disk buffers with 

special care to be taken for the allocation of the input 

string variable. 

So, what I needed was a routine with the following 
characteristics: 

.. Be able to read the disk block buffers. 

.. Be able to write the disk block buffers. 

.. No need for blank padding of any variables or the need of 
adding carriage return characters. 

.. Record and read numeric variables as 5 binary characters, 
as stored in PET's memory. This allows records of up to 51 
numeric variables on a disk sector. 

.. Be able to read single character string variables with an 
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ASC value of zero, in stead of getting a MULL string. 

.. Exercise full control over the Block Buffer Pointers. 

.. Perform like a basic WRITE or READ statement. 

.. No need for special declarations or dummy manipulations of 
input variables. 

.. Be able to output any kind of proper expressions. 

.. Be totally relocatable. 

Aided with Jim Butterfields excellent PET maps and the 
Macro-Tea assembler of Skyles Electric Works, I succesfully 
coded the needed routine. 

I'll explain how to use it with some basic coding 
examples. 

The basic format for the call to the PET 2040 disk buffer 
I/O routine is: 

SYS XX, 10, CH, ( BP ,VA ,(LN)) 


XX = Address were the routine is loaded. 

10 = Input / Output key value. 

CH = Disk direct access channel no. 

BP = Buffer pointer value. 

VA = Variable name. 

LN = No of characters. 

For single BP control the 10 values are: 

0 For normal reading. 

1 For normal writing. 

2 For special reading. 

3 Same as 1. 

For multiple BP control the IO values are: 

4 For normal reading. 

5 For normal writing. 

6 For special reading. 

7 Same as 5 
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BASIC NUMERIC VARIABLE EXAMPLES 


10 DK = 1: CE = 15: CH = 2: XX = 634 
20 OPEN CE,8 f CE 
30 OPEN CH,8,CH,"#" 

40 T = 2: S = 5: BP = 13 

50 REM WRITE 3 VARIABLES TO DISK 


60 SYS XX, 1, CH, BP, A, B, C :REM OUTPUT 

70 PRINT#CE, "U2:"CH;DK;T;S 

880 REM READ 3 VARIABLES FROM DISK 


90 PRINTtCE, "U2:"CH;DK;T;S 
100 SYS XX, 0, CH, BP, X, Y, Z :REM INPUT 

In this example we are writing the 3 numeric variables 
(A,E,C) to the disk buffer starting at character position 13. 
The result is then written to disk drive 1 at Track 2, Sector 
5. The buffer pointer is automatically incremented by 5 for 
each variable and the variables are recorded in internal PET 
format. Note no padding or carriage returns needed. After 
the write, the variables are read back into X, Y and Z. 

For numeric variables the parameter LN is implied and 
must not be coded. 

If the PRINT#CE calls were omitted, no actual disk 
writing or reading would take place, but merely a transfer to 
and from the disk buffer allocated to channel CH, which maybe 
useful in passing parameters between overlays. 

Statement 60 could be something like 


60 

SYS 

XX, 

1, 

CH, 

BP, 

l.f 

A, 

A+B*C 

: REM 

OUTPUT 

60 

SYS 

XX, 

1, 

cn. 

BP, 

SQR(A), 

SIN(A+B), 

A/B 

: REM 

OUTPUT 

60 

SYS 

XX, 

If 

CH, 

BP, 

1 ,+C, 

-A, 

-55.5 

: REM 

OUTPUT 


The number of concatenated variables is only limited by 
the maximum length of a BASIC line. But at least one must be 
specified. We could also replace statement 60 by the 
following lines: 


60 

SYS 

XX, 

If 

CH, 

BP 

A 

: REM 

OUTPUT 

61 

SYS 

XX, 

If 

CH, 

BP+ 5 , 

B 

: REM 

OUTPUT 

62 

SYS 

XX, 

1, 

CH, 

BP+10, 

C 

: REM 

OUTPUT 


Which have the same effect as the original line 60. 

Statement 100 could also be replaced by the following 
lines, which would read back the exact same information in 
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the variables X, Y and Z. 

100 SYS XX, 0, CH, BP+ 5, Y, Z :REP INPUT 

101 SYS XX, 0, CII, BP , X :REM INPUT 

If we want more control over the buffer pointer on the 
write, the value for IO must be 4 for reading and 5 for 
writing. 

Statements 60 and 100 which were: 

60 SYS XX, 1, CP, BP, A, B, C :REN OUTPUT 

100 SYS XX, 0, CH, BP, X, Y, Z :PEN INPUT 

can now be coded as: 


60 

SYS XX, 

5, 

CH, BP, A, 

BP+ 

5, 

E, BP+10, C :REN 

OU 

rp "p rr« 

100 

SYS XX, 

4, 

CH, BP, X, 

BP+ 

5, 

Y, BP+10, Z :REN 

IN 

PUT 

The 

differenc 

e is that 

eacb 

V 

ariable now? lias 

a 

buffer 

pointer 

value 

preceeoing it. 

The 

s 

tatements can now' 

a 1 

so be: 

60 

SYS XX, 

5, 

CII, BP+ 5 , 

P, B 

p. 

A, BP+10, C :REM 

OU 

TPUT 

100 

SYS XX, 

4, 

CH, BP+10, 

Z, E 

p. 

X, BP+ 5, Y :REM 

IN 

pprp 


Since we now 7 have full buffer pointer control. 
BASIC STRING VARIABLES EXAMPLES 


10 DK = 1: CE = 15: CH = 2: XX = 63 4 
20 OPEN CE,C,CC 
30 OPEN CH, 8,CII, 

40 T = 2: S = 5: DP = 13 

50 REM WRITE 3 STRING VARIABLES TO DISK 

60 SYS XX, 1, CH, BP, AS,5, B$,6, C$,10 :REN OUTPUT 
70 PRIHTtCE, "U2:"CH;DK;T;S 

80 REM READ 3 STRING VARIABLES FROM DISK 

90 PRINTtCE, "U2 : "CII; DK ;T; S 

100 SYS XX, 0, CH, BP, X$,5, Y$,6, Z$,10 :REN INPUT 

In this example we are writing the 3 STRING variables 
(A$,B$,C$) to the disk buffer starting at character position 
13. The result is then written to disk drive 1 at Track 2, 
Sector 5. 


The difference between a numeric variable and a string 
variable is that the string variable is followed by LN, its 
length or number of characters. The specied length does not 
have to be the actual length of the string variable. In our 
example the first 5 characters of X$ are transferred, 
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followed by the first 6 characters of Y$ and then the first 
10 characters of Z$. 

The buffer pointer is automatically incremented by 5,6 and 
10. Note no padding or carriage returns needed. After the 
write, the variables are read back into the string? X$, Y$ 
and Z$ 

Lets now examine what happens if we have the following 
statements: 

55 Z$ = "HANS"+"MARGARET" 

60 SYS XX, 1, CH, BP, Z$,LEN(Z$) :REM OUTPUT 

The disk buffer (CH) will now contain starting at 
character position 13 the text "HANSMARGARET". The same 
results of the next statement: 

60 SYS XX, 1, CH, BP, "HANS"+"MARGARET",12 :REM OUTPUT 

And the statement: 

100 SYS XX, 0, CH, BP, Z$,12 :REM INPUT 

Will input and create a string variable with a length of 
12 characters and containing the text "HANSMARGARET". 
However the statement: 

100 SYS XX, 0, CH, BP, Z$,10 :REM INPUT 

Will input and create a string variable with a length of 
10 characters and containing the text "HANSMARGAR". Or the 
statements: 

100 SYS XX, 0, CH, BP , X$,6 :REN INPUT 

101 SYS XX, 0, CH, BP+7, Z$,5 :REM INPUT 

Will input and create two string variables X$ and Z$, 
containing "HANSMA" AMD "C-ARET" 

Note that no extra linefeeds or carriage return 
characters are written and that the record space needed for 
the original ITEM-NO, DESCRIPTION and COST example is now 
5+12+5 or 22 characters instead of the 29 needed without this 
buffer I/O routine. 

If the PRINT#CE calls were omitted no actual disk 
writing or reading would take place, but merely a transfer to 
and from the disk buffer allocated to channel CH, which again 
maybe useful in passing parameters between overlays, or to do 
some fancy string manipulations. 

P. E. : 

10 A$ = "XXXXXXXXXX" 

11 B$ = "YYYYY" 

12 SYS XX, 1, CH, 2, A$, LEN(AS) :REN OUTPUT 

13 SYS XX, 1, CH, 5, B$, LEN(B$) :REN OUTPUT 

14 SYSS XX, 0, CH, 2, A$, 10 :REM INPUT 
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First writes the string variables A$ and B$ overlaying 
the A$ information and then inputs and creates a string 
variable A$ containing "XXXYYYYYXX". 

Statement 60 could be something like 

60 SYS XX, 1, CII, BP, A$ + "X",5, A$+B$,6, A$ + "Z"+C$,10 
:REM OUTPUT 

The number of concatenated string variables is only 
limited by the maximum length of a BASIC line. But at least 
one must be specified. We could also replace statement 60 by 
the following lines: 


60 

SYS 

XX, 

1, 

CH, 

BP 

A$,5 

: REM 

OUTPUT 

61 

SYS 

XX, 

1, 

CH, 

BP+ 5, 

B$, 6 

: REM 

OUTPUT 

62 

SYS 

XX, 

1, 

CH, 

BP+11, 

C$,10 

: REM 

OUTPUT 


Which have the same effect as the original line 60. 

Statement 100 could also be replaced by the following 
lines, which would read back the exact same information in 
the string variables X$, Y$ and Z$ 

100 SYS XX, 0, CH, BP+5, Y$,6, Z$,10 :REM INPUT 

101 SYS XX, 0, CH, BP , X$,5 :REM INPUT 

If we v/ant more control over the buffer pointer on the 
v/ rite, the value for 10 must be 4 for reading and 5 for 
writing. 

Statements 60 and 100 which were: 


60 SYS XX, 1, CH, BP, A$,5, B$,6, C$,10 :REM OUTPUT 
100 SYS XX, 0, CH, BP, X$,5, Y$,6, Z$,10 :REM INPUT 

can now be coded as: 


60 

OUTPUT 

SYS 

XX, 

5, 

CII, 

BP,A $,5 , 

BP+5,B$,6, 

BP+11,C$,10 

: REM 

100 

SYS 

XX, 

4, 

CII, 

BP,X$ , 5 , 

BP+5,Y$,6, 

BP+11,Z$,10 

: REM 


INPUT 


The difference is that each string variable now has a 
buffer pointer value preceeding it and still its length 
following it. The statements can now also be: 


60 

OUTPUT 

SYS 

XX, 

5, 

CH, 

BP+5,B$,6, BP+11,C$,10, BP,A$,5 

: REM 

100 

SYS 

XX, 

4, 

CH, 

BP+11,Z$,10, BP,A$,5 , BP+5,Y$,6 

: REM 


INPUT 

Since we now have full buffer pointer control. 

So far I only discussed write and reads of string 
variables of the same length on the writing and reading. 
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Now suppose we have the following statements: 

55 A$ = "HANS" 

60 SYS XX, 5, CH, 10,A$,10 , 20,A$+A$,10 :REM OUTPUT 

This transfers to the buffer, starting at character 
location 10, the characters "hans*****hanshans**", where the 

stands for an automatic padded carriage return character 
with an ASC value of 13. In other words the routine will 
always write the number of characters requested but if the 
output string expression is too short, the output will be 
padded with carriage return characters. This has a nice 
effect when we read the same data back with the following 
statement: 

100 SYS XX, 4, CH, 10,A$,10 , 20,B$,10 :REN INPUT 

This call will input and create the two string variables 
A$ and B$, but their contents will be "HANS" AND "HANSHANS", 
since the input quits on the first encountered carriage 
return characters for each variable and their length will be 
4 and 8. However an otherwise null character string v/ill 
always be returned as a character string of ASC value zero 
with a length of one. 

Sometimes this technique is undesirable and we v/ant to 
get back every character, no matter what their ASC values 
are. Now the special read I/O values 2 or 6 are to be used. 
The statement: 

100 SYS XX, 6, CH, 10,A$,10 , 20,B$,10 :REM INPUT 

Will now input and create an A$ and B$ variable 
containing "hans******" and "hanshans**". 

Note, the length limit of a string variable is 255 bytes, 
allowing us to read or write entire disk buffer blocks at 
once. 


By no means do we have to write separate statements for 
numeric or string variables, we can mix them up. The 
following statements are quite legal: 


51 IT = 5469 

52 SS$ = "PET COMPUTER" 

53 CO = 1365.25 

60 SYS XX, 1, CH, 2, IT, SS$,12, CO :PEN OUTPUT 
100 SYS XX, 6, CH, 7,AS,12 ,2,A, 19, B : REM INPUT 


Again the read call for I/O = 6 will properly return: 
A$ = "PET COMPUTER", A = 5469, B = 1365.25 


Still confused, please contact me ! 
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0010; ROU 
0020; VAR 

0030; - 

0040 ; 

0 0 50 ; W RI 
0060 ; 

0070 ; 

0 0 80 ; 

00 90 ; 

0100 ; 
0110 ; — 
0120 ; 
0130; THI 
0140; 
0150; FLO 
0160 ; 
0170; STR 
0180; OR 
0190 ; 
0200; THI 
0210; SIN 
0220 ; 

0230 ; 

0240 ; 

0250 ; 

0260 
0270 
0280 ; 
0290; LOC 
0300 ; 
0310STADR 
0320SYSXX 
0330 ; 
034010 
0350DCH 
0360LNG 
0370STP 
03 80 ; 


ROUTINE TO TRANSFER FLOATING POINT VARIABLES AND STRING 
VARIABLES BETWEEN PET'S MEMORY AND A D/A DISK BUFFER. 


WRITTEN 


J.HOOGSTRAAT 


BOX-2 0 , 

CALGARY, 

PHONE 


SITE 7, SSI 
T2M-4N3, ALTA 
(403)239-0900 


THIS ROUTINE 


TOTAL RELOCATABLE 


FLOATING POINT VARIABLES 


TRANSFERRED 


LOADED AN WHERE. 


BYTES ONLY, 


STRING VARIABLES ARE 
OR CARRIAGE RETURNS. 


TRANSFERRED WITHOUT LINEFEEDS 


THIS ROUTINE IS IDEALLY SUITABLE 
SINCE ALL BUFFER POINTERS CAN BE 


FOR DIRECT DISK ACCESSING, 
CALCULATED EXACTLY. 


FIRST CASSETTE BUFFER 


NOW. 


LOCAL VARIABLES 


$B1 
$B2 
$B7 
: $B8 


: SAVED 
BASIC 

SAVED 
: SAVED 
■ SAVED 


ROUTINE 

ROUTINE 


START 

START 


ADDRESS, 

ADDRESS 


IO. 

DCH. 

REQ. 


LENGTH, 


027A-A511 

027C-8501 

027E-A512 

0280-8502 

02 82-20F8CD 


03 90 ; LOC. 
0400 ; 
0410DCE 
0420CRT 
0430FLN 
0440 ; 
0450; BAS 
0460 ; 
0470DTP 
0480SLN 
0 4 90 SAD 
0500CAD 
0510ACC 
0520NCH 
0530ASB 
0540; 

055 0 START 
0560 
0570 
0580 
0590 ; 

0600 


LOCAL VALUES 


BASIC AREAS USED 


.DI $07 
.DI $16 
•DI $17 
.DI $44 
.DI $5E 
.DI $77 
.DI $100 

LDA *SYSXX 
STA *STADR 
LDA *SYSXX+1 
STA *STADR+1 

J SR CHKCOM 


;SAVED DATA TYPE. 


DISK COMMAND CHANNEL. 
CARRIAGE RETURN. 

FLT PNT WORD LENGTH. 


;DATA TYPE. 

;STRING LENGTH. 

;STRING ADDRESS. 

;CURRENT VARIABLE ADDR. 
;ACCUMULATOR. 

;NEXT INPUT FIELD CHAR. 
;ASC BUFFER. 

;START START ADDR 
;FOR SELF RELOCATION. 


;UPTO NEXT FIELD. 
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02 85-2 0 9FCC 

0610 

JSR 

EVAEXP 

;EVALUATE EX PRES SION. 

02 88-20D2D6 

0620 

J SR 

FLTFIX 

;CONVERT TO INTEGER. 

02.8P-84R1 

0630 

STY 

*IO 

; SAVE IC # 


06 40 ; 




0 2 8D-2 OF BCD 

0650 

JSR 

ciiKCOf: 

;UPTO NEXT FIELD. 

0290-209FCC 

0660 

JSR 

EVAEXP 

;EVALUATE EXPRESSION. 

02 93-2 0D2D6 

0670 

JSR 

FLTFIX 

;CONVERT TO INTEGER. 

02.96-84B2 

06 80 

STY 

*DCII 

;SAVE DCF. 


06 90 ; 




0298-20F8CD 

0700AGAIN 

JSR 

CUKCOL 

;UPTO NEXT FIELD. 

029B-209FCC 

0710 

JSR 

EVAEXP 

;EVALUATE EXPRESSSION. 

029E-20E9DC 

0720 

JSR 

P-INASC 

; CVT BPT TO ASC. 


0730 ; 





0740; ISSUE 

pRirmcE, "b-p 

:"CH;BP 


0750; - 





0760; 




02A1-A20F 

0770 

LUX 

#DCE 

; OPEN CHANNEL 'CE ' 

02A3-20C9FF 

07 80 

JSR 

STODEV 



07 90; 




02A6-A0C4 

0 800 

LDY 

#BPDCH- 

START ;SET RELOCATION. 


0 810; 




0 2A8-A5B2 

0 82 0 

LDA 

*DCH 

;STON ASC OF DCF 

02AA-0930 

0 83 0 

ORA 

#$3 0 

;IN THE TEXT. 

02AC-9101 

0840 

STA 

(STADDR 

) ,Y 


0 850; 




02AE-A0C1 

0 860 

LDY 

#LPTXT- 

START ;SET RELOCATION. 

02.E0-E1G1 

0 87 OOUTBP 

LDA 

(STADR) 

, Y ;OUTPUT "B-P:"CH. 

02R2-2 0D2FF 

0880 

JSR 

OUTCIIR 


02B5-C8 

0 890 

IUY 



02B6-C0C6 

0 900 

CPY 

#BPTXE- 

START ;ELD OF TEXT ? 

02B8-D0F6 

0910 

BME 

OUTEP 

;NO, CONTINUE. 


0 92 0 ; 




0 2BA-A201 

0930 

LDX 

#1 


02BC-BD0001 

0 940 BPOUT 

LDA 

ASB, X 

;OUTPUT ASC OF BP 

02BF-F00A 

0950 

BEG 

EPDOM 

;END OF ASC. 

02C1-20D2FF 

0960 

JSR 

OUTCHR 


02C4-E8 

0970 

I MX 



02C5-D0F5 

0 9 80 

BME 

BPOUT 

;CONTINUE TILL END 

02C7-F00 2 

0990 

BEQ 

BPDOM 



1000 ; 




0 2C9-D0CD 

1010AGAJJ 

BME 

AGAIN 



1020 ; 




0 2CB-2 OCCFF 

103 0BPDOI! 

JSR 

RESTIO 



10 40 ; 

1050; ISSUE PRINT#CH FOR INPUT OR OUTPUT 


1060; 

1070; 


02CE-A6B2 

10 80 

10 90 ; 

LDX 

*DCH 


02D0-A5B1 

1100 

LDA 

*IO 

;CHECK IO. 

02D2-2901 

1110 

AND 

#1 


02D4-F005 

1120 

1130 ; 

BEQ 

OPINP 

;INPUT. 

02D6-2 0C9FF 

1140 OPOUT 

JSR 

STODEV 

;OPEN OUTPUT CH. 

02D9-D003 

1150 

116 0; 

BKE 

TRFER 


02DB-20C6FF 

117 OOPINP 
1180; 

JSR 

STIDEV 

;OPEN INPUT CH. 

02DE-2 0F8CD 

1190TRFER 
1200; 

JSR 

CHKCOM 

;UPTO NEXT FIELD 
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02E1-A905 

1210 

LDA 

#FLN 

; DEFAULT LENGTH 

02E3-85B7 

1220 

STA 

*LNG 

;TO FLT PNT LENGTH. 

02E5-8516 

123 0 

1240 ; 

STA 

*SLN 


02E7-A5B1 

1250 

LDA 

*10 

;CHECK 10. 

02E9-2 901 

1260 

AND 

#1 


02EB-F053 

1270 BEQ 

12 80; 

1290; WRITE OUTPUT 

1300; - 

1310 ; 

RIKPT 

DATA 

;READ INPUT. 

02ED-209FCC 

1320WOUTP 

J SR 

EVAEXP 

;EVALUATE EXPRESSION. 

02F0-0S 

1330 

13 40 ; 

PHP 


;SAVE STATUS 

02F1-A507 

1350 

LDA 

*DTP 

;CHARACTER STRING ? 

02.F3-F01D 

1360 

137 0; 

BEQ FLTDT 

;NO FLT PNT VARIABLE. 


1380; OUTPUT 
13 90; 

STRINC 

EXPRESS 

ION 

02F5-207DD5 

1400 

1410; 

J SR 

DSCSTR 

;DISCARD TEMP STRING 

02F8-28 

1420 

PLP 


;GET STATUS 

02F9-100A 

1430 

1440 ; 

BPL 

WOUTS 

;NOT A CONTAMT STRING 

02FF.-A002 

1450WOUTC 

LDY 

#2 

;SAVE STRING ADDRESS 

02 FD-B144 

1460 STRAD 

LDA 

(CAD),Y 


02FF-991600 

0302-88 

1470 

14 80 

STA 

DEY 

SLN, Y 


0303-10F8 

14 90 

1500; 

BPL 

STRAD 


0305-20F8CD 

151OWOUTS 

JSR 

CIIKCOii 

;UPTO NEXT FIELD. 

030 8-209FCC 

1520 

J SR 

EVAEXP 

;EVALUATE EXPRESSION. 

030B-20D2D6 

1530 

JSR 

FLTFIX 

;CONVERT TO INTEGER. 

030E-84B7 

1540 

STY 

*LHG 

;SAVE REO. LENGTH. 

0310-D011 

1550 

1560 ; 

BNE 

WRITE 

;READY FOR OUTPUT. 


1570; OUTPUT 
15 80 ; 

FLT PUT DATA IN ACCUMULATOR 

0312-28 

15 90 FLTDT 
1600 ; 

PLP 


;CLEAR STACK 

0313-A563 

1610 

LDA 

*AvCC+5 

;CORRECT SIGN ? 

0315-3004 

1620 

1630; 

BMI 

FLTCR 

; NO. 

0317-065F 

1640 

ASL 

*ACC+1 

;REMOVE SIGN BIT 

0319-465F 

1650 

1660; 

LSR 

*ACC+1 

;FROM ACCUMULATOR. 

031B-A95E 

167 OFLTCR 

LDA 

SL,ACC 

;SET OUTPUT 

031D-A000 

1680 

LDY 

#H,ACC 

;ADDRESS TO THE 

031F-8517 

1690 

STA 

*SAD 

;ACCUNLATOR. 

0321-8418 

1700 

1710; 

1720; OUTPUT 
1730; 

STY *SAD+1 

CHARACTER LOOP 


0323-AO00 

17 40WRITE 

17 50; 

LDY 

#0 

;SET CHAR POINTER. 

0325-A90D 

17 6 0WRIT1 

LDA 

#CRT 

;DEFAULT TO CR. 

0327-C416 

1770 

CPY 

*SLM 

;MORE THAN ACTUAL LENGTH 

0329-B002 

1780 

BCS 

WRIT2 

; YES , USE -CR. 

032B-B117 

1790 

LDA 

(SAD),Y 

;USE INPUT CHAR. 

032D-20D2FF 

1 800WRIT2 

JSR 

OUTCHR 

;OUTPUT THIS CHAR. 
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1810; 


0330-C8 

1820 

I NY 



0331-C4B7 

1830 

CPY 

*LNG 

; ALL DOME ? 

0333-D0F0 

1840 

BKE 

T7RIT1 

NO. 

033 5-F061 

1850 

BEO 

FIELD 

YES. 


1860; 





1870 ; INBETt 

7EEN JU!- 

iP AND con; 

3TAMTS 


1880; - 



— 


1890 ; 




0337-D090 

1900AGAIJ 

BITE 

AGAJ J 


033 9-F0A3 

1910TRFEJ 

BEO 

TRFER 



1920 ; 




033B-422D50 

193 OBPTXT 

.BY 

' B-P 1 


033E-5820 

1 940BPDCII 

. BY 

'X ' 



1950BPTXE 

. DI 

= 



1960; 





1970; READ INPUT DATA 



1980; - 


— 



1990 ; 




0340-206DCF 

2000RINPT 

J SR 

GETVAR 

;GET VARIABLE ADDR. 


2010 ; 




0343-8517 

2020 

STA 

*SAD 

DEFAULT INPUT ADDRESS. 

0345-8418 

2030 

STY 

*SAD+1 

;TO FLT PUT VARIABLE 


2040; 




0347-A507 

2050 

LDA 

*DTP 

■SAVE AND CHECK DATA TYPE 

03 49-85B8 

2060 

STA 

*STP 



207 0 ; 





2080; INPUT 

FLT PKT 

VARIABLE 



20 90; 




03 4B-F020 

2100 

BEO 

READ I 

•FLT PNT INPUT VARIABLE. 


2110 ; 





2120; INPUT 

STRING 

VARIABLE 



2130; 




03 4D-20F8CD 

2140 

J SR 

CHKCOM 

rUPTO NEXT FIELD. 

03 50-209FCC 

2150 

JSR 

EVAEXP 

; EVALUATE EXPRESSION. 

03 53-20D2D6 

2160 

J SR 

FLTFIX 

;CONVERT TO INTEGER. 


2170 ; 




0356-98 

21 80 

TYA 



03 57-A000 

2190 

LDY 

#0 


0359-8516 

2200 

STA 

*SLN 

; SAVE REO. LLENGTH. 

035B-9117 

2210 

STA 

(SAD),Y , 

: SAVE IN STRING INDEX. 


2220 ; 




035D-20D0D3 

2230 

JSR 

GETSPC 

;GET SPACE FOR STRING. 


2240 ; 




0360-98 

2250 

TYA 



0361-A002 

2260 

LDY 

#2 

; SAVE ADDRESS OF SPACE 

0363-9117 

2270 

STA 

(SAD),Y 

; IN STRING INDEX 

0365-8545 

22 80 

STA 

*CAD+1 

;AND CURRENT VARIABLE ADD 

0367-8A 

2290 

TXA 



0368-88 

2300 

DEY 



0369-9117 

2310 

STA 

(SAD),Y 


036B-8544 

2320 

STA 

*CAD 



2330 ; 




036D-A000 

2340READI 

LDY 

#0 ; 

; SET CHAR POINTER. 


23 50 ; 




036F-A5B1 

2360 

LDA 

*IO 

; CHECK IO. 

0371-2902 

2370 

AND 

v2 

; SPECIAL STRING READ ? 

037 3-F002 

23 80 

BEO 

READ1 

; NO. 


23 90 ; 




037 5-84B8 

2400 

STY 

*STP ; 

?CHANGE FROM 'FF' TO '00' 
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2410; 




0377-20CFFF 

2420READ1 

J SR 

INPCHR ; 

■INPUT A CHAR. 


2430; 




037A-C90D 

2440 

CMP 

#CRT ; 

■CARRIAGE RETURN ? 

037C-D004 

2450 

BME 

READ2 ) 

NO. 


2460; 




037E-A6B3 

2470 

LDX 

*STP ; 

YES. STRING ? 

03 80-D00 9 

2480 

BME 

READ4 ) 

YES. TERMINATE STRING. 


2490; 




0382-9144 

2500READ2 

STA 

(CAD),Y ; 

STOW CHAR INTO INPUT. 


2510; 




0384-C8 

2520READ3 

INY 



03 85-C416 

2530 

CPY 

*SLN 

•ALL DONE ? 

03 87-D0EE 

2540 

BME 

READ1 

•NO. 

03 89-FOOD 

2550 

BEQ 

FIELD 

•YES. 


2560; 




038B-98 

2570READ4 

TYA 



03 8C-F0F4 

2580 

beq 

READ 2 

■INTERCEPT NULL STRINGS 


25 90 ; 




03 8E-AOOO 

2600 

LDY 

#0 

SET RECORDED STRING LENGTH. 

0390-84B8 

2610 

STY 

*STP 

RESET DATA TYPE. 

0392-9117 

2620 

STA 

(SAD),Y 

TRUNCATE STRING IN INDEX. 

0394-A8 

2630 

TAY 



0395-18 

26 40 

CLC 



03 96-90EC 

2650 

ECC 

P.EAD3 ; 

CONTINUE READING. 


2660; 





2670; CHECK 

FOR MORE FIELDS 



26 80; - 

— 




2690; 




03 98-A0OO 

2700FIELD 

LDY 

#0 

MORE FIELDS ARE PRESENT 

03 9A-E177 

2710 

LDA 

(NCI!) ,Y 

IF THERE IS A COMMA IN 

03 9C-C92C 

2720 

CMP 


BASIC'S INPUT BUFFER. 

03 9E-D00 8 

2730 

ENE 

ADONE 

NO, WE QUIT. 

03A0-A5B1 

2740 

LDA 

*IO 

WHAT KIND 

03A2-290C 

2750 

AMD 

#12 


03A4-F093 

2760 

BEO 

TRFEJ ; 

:GO AGAIN, NO BP 

03A6-D08F 

2770 

DUE 

AGAIJ ; 

:GO AGAIN, BP SET 


27 80; 





2790; TERMINATE ROUTINE 



2800; - 

— 




2810; 




03A8-20CCFF 

2820ADORE 

J SR 

RESTIO 

; RESTORE I/O DEVICE. 

03AB-60 

2 830 

RTS 




2 840 ; 





2850; BASIC 

ROUTINES USED 



2860 ; 





2 87 OEVAEXP 

.DE 

$CC9F 

EVALUATE EXPRESSION. 


2 8 80CHKCOM 

.DE 

3CDF8 

CHECK FOR COMMA. 


2 890GETVAR 

.DE 

$CF6D 

GET BASIC VARIABLE. 


2900GETSPC 

.DE 

$D3D0 

GET STRING SPACE. 


2910DSCSTR 

.DE 

SD57D 

DISCARD TEMP STRING. 


2920FLTFIX 

.DE 

SD6D2 

FLOAT TO INTEGER. CONVERSION 


2930BIUASC 

.DE 

$DCE9 

CONVERT FLT TO ASC. 


2940RESTIO 

.DE 

$FFCC 

RESTORE DEFAULT I/O ADDRESSES. 


2 95 0 STIDEV 

.DE 

$FFC6 

SET INPUT DEVICE. 


2960STODEV 

.DE 

$FFC9 

SET OUTPUTT DEVICE. 


2 970INPCHR 

.DE 

$FFCF 

INPUT CHARACTER. 


2 9 80OUTCUR 

.DE 

$FFD2 

OUTPUT CHARACTER. 


2990 

.EM 













LABELS 


STADR 

= 

0001 

SYSXX 

= 

0011 

10 

= 

00B1 

DCH 

= 

00B2 

LNG 

= 

00B7 

STP 

= 

00B8 

DCE 

= 

000F 

CRT 

= 

000D 

FLN 

= 

0005 

DTP 

= 

0007 

SLN 

= 

0016 

SAD 

= 

0017 

CAD 

= 

0044 

ACC 

= 

00 5 E 

NCH 

= 

0077 

ASB 

= 

0100 

START 

= 

027 A 

AGAIN 

= 

0298 

OUTBP 

= 

02B0 

BPOUT 

= 

02BC 

AGAJJ 

= 

02C9 

BPDON 

= 

02CB 

OPOUT 

= 

02D6 

OPINP 

= 

02DB 

TRFER 

= 

02DE 

WOUTP 

= 

02 ED 

WOUTC 

= 

02FB 

STRAD 

= 

02FD 

WOUTS 

= 

0305 

FLTDT 

= 

0312 

FLTCR 

= 

031B 

WRITE 

= 

0323 

WRIT1 

= 

0325 

WRIT2 

= 

032D 

AGAIJ 

= 

0337 

TRFEJ 

= 

0339 

BPTXT 

= 

033B 

BPDCH 

= 

033E 

BPTXE 

= 

0340 

RINPT 

= 

0340 

READI 

= 

036D 

READI 

= 

0377 

READ2 

= 

0382 

READ3 

= 

0384 

READ4 

= 

03 8E 

FIELD 

= 

0398 

ADONE 

= 

03A8 

/EVAEXP 

= 

CC9F 

/ CHKCOfl 

= 

CDF 8 

/GETVAR 


CF6D 

/GETSPC 

= 

D3D0 

/DSCSTR 

= 

D57D 

/FLTFIX 

= 

D6D2 

/EINASC 

= 

DCE 9 

/RESTIO 

= 

FFCC 

/STIDEV 

= 

FFC6 

/STODEV 

= 

FFC9 

/INPCHR 

= 

FFCF 

/OUTCHR 

= 

FFD2 
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IIEXADECIEIAL DUMP 


027 A 

A 5 

11 

85 

01 

A 5 

12 

85 

02 

0282 

20 

F8 

CD 

20 

9F 

CC 

20 

D2 

02 8 A 

D6 

84 

B1 

20 

F8 

CD 

20 

9F 

0292 

CC 

20 

D2 

D6 

84 

E2 

20 

F 8 

0 2 9A 

CD 

20 

9F 

CC 

20 

E9 

DC 

A 2 

0 2A2. 

OF 

20 

C9 

FF 

AO 

C4 

A 5 

B2 

0 2 AA 

0 9 

30 

91 

01 

AO 

Cl 

El 

01 

02B2 

20 

D2 

FF 

C8 

CO 

C6 

DO 

F6 

0 2 BA 

A2 

01 

BD 

00 

01 

FO 

OA 

20 

02C2 

D2 

FF 

E8 

DO 

F5 

FO 

02 

DO 

02CA 

CD 

20 

CC 

FF 

A 6 

B2 

A 5 

B1 

02D2 

29 

01 

FO 

05 

20 

C9 

FF 

DO 

02BA 

03 

20 

C6 

FF 

20 

FC 

CD 

A9 

0 2E2 

05 

85 

B7 

85 

16 

A 5 

El 

29 

02EA 

01 

FO 

53 

20 

9F 

CC 

0 8 

A5 

02F2 

07 

FO 

ID 

20 

7D 

D5 

28 

10 

0 2 FA 

OA 

AO 

02 

B1 

44 

99 

16 

00 

0302 

88 

10 

F8 

20 

F 8 

CD 

20 

9F 

030 A 

CC 

20 

D2 

D6 

84 

B7 

DO 

11 

0312 

2 8 

A 5 

63 

30 

04 

06 

5F 

46 

031A 

5 F 

A 9 

5E 

AO 

00 

85 

17 

84 

0322 

18 

AO 

00 

A 9 

OD 

C4 

16 

BO 

03 2 A 

02 

El 

17 

20 

D2 

FF 

C8 

C4 

0332 

B7 

DO 

FO 

FO 

61 

DO 

90 

FC 

033 A 

A3 

42 

2D 

50 

33 

20 

20 

6D 

03 42 

CF 

85 

17 

84 

18 

A5 

07 

85 

034A 

B8 

FO 

20 

20 

F8 

CD 

20 

9F 

03 5 2 

CC 

20 

D2 

D6 

98 

AO 

00 

85 

03 5 A 

16 

91 

17 

20 

DO 

D3 

98 

AO 

03 6 2 

02 

91 

17 

85 

45 

8 A 

88 

91 

03 6 A 

17 

85 

44 

AO 

00 

A5 

B1 

29 

0372 

0 2 

FO 

02 

84 

BO 

20 

CF 

FF 

037A 

C9 

OD 

DO 

04 

A6 

B8 

DO 

09 

03 82 

91 

44 

C8 

C4 

16 

DO 

EE 

FO 

03 8A 

OD 

98 

FO 

F4 

AO 

00 

84 

E8 

0392 

91 

17 

A8 

18 

90 

EC 

AO 

00 

03 9A 

El 

77 

C9 

2C 

DO 

08 

A5 

B1 

03A2 

29 

OC 

FO 

93 

DO 

8F 

20 

CC 

03 AA 

FF 

60 
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60000 REM DATA STATEMENTS FOR D/A BUFFER ROUTINE 

60001 REM 

60002 REM TOTAL LENGTH 306 BYTES 

60003 REM 


60004 

DATA 

165, 

17, 

133 , 

60005 

DATA 

32, 

248, 

205, 

60006 

DATA 

214, 

132, 

177 , 

60007 

DATA 

204, 

32, 

210, 

60008 

DATA 

205, 

32, 

159, 

60009 

DATA 

15, 

32, 

201, 

60010 

DATA 

9, 

48, 

145, 

60011 

DATA 

32, 

210, 

255 , 

60012 

DATA 

162, 

If 

189, 

60013 

DATA 

210, 

255, 

232, 

60014 

DATA 

205, 

32, 

204, 

60015 

DATA 

41, 

lr 

240 , 

60016 

DATA 

3, 

32, 

198, 

60017 

DATA 

5, 

133 , 

183, 

60018 

DATA 

lr 

240 , 

83 , 

60019 

DATA 

7, 

240 , 

29, 

60020 

DATA 

10, 

160 , 

2, 

60021 

DATA 

136 , 

16, 

248, 

60022 

DATA 

204 , 

32, 

210 , 

60023 

DATA 

40, 

165, 

99, 

60024 

DATA 

95, 

169, 

94, 

60025 

DATA 

24, 

160, 

0, 

60026 

DATA 

2, 

177, 

23 , 

60027 

DATA 

183 , 

208, 

240 , 

60028 

DATA 

163 , 

66 , 

45, 

60029 

DATA 

207 , 

133 , 

23 , 

60030 

DATA 

184, 

240 , 

32, 

60031 

DATA 

204 , 

32, 

210 , 

60032 

DATA 

22, 

145 , 

23 , 

60033 

DATA 

2 t 

145, 

23 , 

60034 

DATA 

23 , 

133 , 

68, 

60035 

DATA 

2, 

240 , 

2, 

60036 

DATA 

201 , 

13, 

208, 

60037 

DATA 

145, 

68, 

200 , 

6003 8 

DATA 

13, 

152, 

240 , 

60039 

DATA 

145, 

23 , 

168, 

60040 

DATA 

177 , 

119, 

201, 

60041 

DATA 

41, 

12, 

240 , 

60042 

DATA 

255 , 

96 


60043 

END 





lr 

165, 

18, 

133, 

2 

32, 

159, 

204, 

32, 

210 

32, 

248, 

205, 

32, 

159 

214, 

132, 

178, 

32, 

248 

204 , 

32, 

233 , 

220 , 

162 

255, 

160, 

196, 

165, 

178 

lr 

160, 

193 , 

177 , 

1 

200 , 

192, 

198, 

208, 

246 

0, 

lr 

240 , 

10, 

32 

208, 

245 , 

240 , 

2, 

208 

255 , 

166 , 

178, 

165, 

177 

5, 

32, 

201, 

255 , 

208 

255 , 

32, 

248, 

205, 

169 

133, 

22 , 

165, 

177 , 

41 

32, 

159, 

204 , 

8, 

165 

32, 

125, 

213 , 

40, 

16 

177, 

68, 

153 , 

22, 

0 

32, 

248, 

205, 

32, 

159 

214, 

132 , 

183, 

208, 

17 

48, 

4, 

6, 

95, 

70 

160, 

0, 

133 , 

23, 

132 

169, 

13, 

196 , 

22, 

176 

32, 

210 , 

255, 

200 , 

196 

240 , 

97, 

208, 

144, 

240 

80, 

88, 

32, 

32, 

109 

132, 

24, 

165, 

7, 

133 

32, 

248, 

205, 

32, 

159 

214, 

152, 

160 , 

0, 

133 

32, 

20 8, 

211 , 

152, 

160 

133, 

69, 

138, 

136 , 

145 

160, 

0, 

165, 

177 , 

41 

132, 

184, 

32, 

207 , 

255 

4, 

166 , 

184, 

20 8, 

9 

196, 

22, 

208, 

23 8, 

240 

244, 

160 , 

0, 

132, 

184 

24, 

144, 

236 , 

160 , 

0 

44, 

208, 

8, 

165, 

177 

147, 

208, 

143, 

32, 

204 
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100 REM A RANDOM FILE DEMONSTRATION 
110 REN WHICH NEEDS NO BLOCK-ALLOCATE 
120 REM EY USING THE SPACE ALLLOCATED 
130 REM OF ANY PREVIOUS CREATED FILE. 
140 REM 

150 REM THE RANDOM UPDATES CAN BE BITS 
160 REN OF INFORMATION OF UPTO 254 
170 REM BYTES OF STRING INFORMATION. 

180 REM 

190 REN FLOATING POINT VARIABLES ALWAYS 
200 REM ARE ONLY 5 BYTES LONG. THE FIVE 
210 REM BYTES PET USES. 

220 REN 

230 REN THIS DEMONSTRATION NEEDS THE 
240 REN D/A BUFFER ROUTINE LOADED AT 
25 0 REM XX=6 3 4 . 

260 REM 

270 REM TESTING DONE ON DISK DRIVE 1 
280 REM 

290 REN ======================= 

3 00 REN J . HOOC-STRAAT 

310 REN 

320 REN BOX 20, SITE 7, SS 1 
330 REN CALGARY, ALTA. T2M-4N3 
340 REM PH(403) 239-0900 

350 REM ======================= 

360 REM 
370 REN 

380 REM CREATE A SEQUENTIAL TEST FILE 

3 90 REN- 

400 REM 

410 F$="TESTINC-TESTING" 

420 XX=634:GOSUB1120 

430 DK=1:CE=15:CS=2:CR=3:NN=200 

440 DINT(40),S(40) 

450 A$ = " I "+CIIR$ ( 48+DK) :OPENCE , 8 ,CE , A$ 

46 0 A$ = "@"+CHR$(4 8+DK)+" : "+F$+",U,W" 

470 OPENCS,8,CS,A$ 

4 80 A$ = " . . . " :F0RI = 1T03 :A$=A$+A$:NEXT 
490 F0RI=1T027:PRINT#CS,A$:NEXT 

500 CLOSECS 
510 REN 

520 REN FIND TRACK AND SECTOR EXTENTS 
530 REN FOR CREATED TEST FILE 

540 REN - 

550 REM 
560 L=LEN(F$) 

570 A$=CHR$(48+DK)+":"+FS+",U,R" 

580 OPENCS,8,CS,A? 

590 T=18:S=1:N=0 

600 PRINT#CE,"U1:"CS;DK;T;S 

610 5YSXX,0,CS,1,S$,1:S=ASC(S$) 

620 FOF<I = 2T0255STEP32 

630 SYSXX,0,CS,I,AS,2,T$,1,S$,1,N$,L 

640 IFASC(A$)>12 8AKDF$=N$THEN67 0 

650 NEXT:IFS<255THEN600 

660 PRINT"FILE "F$" NOT FOUND":END 

670 N=N+1 
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680 T(N)=ASC(T$) :S(N)=ASC(S$) 

690 PRINT#CE,"U1:"CS;DK;T(N);S(N) 

7 00 GET#CS,T$,T$,S$:IFT$<>""THEN670 
710 CLOSECS 
720 REM 

730 REM OPEN RANDOM FILE WITH THE TEST 
740 REM FILE EXTENTS. FILL IT ALL UP 

750 REM - 

760 REM 

770 PRINT"[cs]" 

7 80 OPENCR,8,CR, "#" 

7 90 FORI = lTON:A$=CHR$(1+48) 

800 F0RL=1T05:A$=A$+A$+A$:NEXT 
810 PRINT#CE,"U1:"CR;DK;T(I);S(I) 

820 SYSXX, 1,CR,2,1, -1, A$,NN 
830 SYSXX,0,CR f 2,S,U,A$,NN 
840 PRINT"[dn]BLOCK";S:PRINTA$; 

850 PRINT#CE,"U2:”CR;DK;T(I);S(I) 

860 NEXT 
870 REM 

880 REM UPDATE SOME TEXT IN A BLOCK 

890 REM - 

900 REM 
910 REM 

920 INPUT"[dn]BLOCK,POS,TEXT";B,P,B$ 

930 PRINT"[cs]" 

940 FORI=lTON 

950 PRINT#CE,"U1:"CR;DK;T(I);S(I) 

960 IFIOBTHEN990 

970 SYSXX,1,CR,7,P 

980 SYSXX,1,CR,11+P,B$,LEN(B$) 

990 SYSXX,0,CR,2,S,U,A$,NN 
1000 PRINT"[dn]BLOCK"S; 

1010 PRINT" LAST UPDATE AT POS";U 
1020 PRINTA$; 

1030 PRINT#CE,"U2:"CR;DK;T(I);S(I) 

1040 NEXT 
1050 GOTO920 
1060 REM 

1070 REM LOAD UP THE D/A BUFFER ROUTINE 
1080 REM AT LOCATION XX. THIS ROUTINE 
1090 REM A TOTAL RELOCATABLE. 

1100 REM - 

1110 REM 

1120 F0RI=1T0306:READA:POKEXX-l + I,A:NEXT 
1130 RETURN 
1140 REM 

1150 REM INSERT DATA STATEMENTS 
1160 REM FOR D/A BUFFER ROUTINE HERE 
1170 REM TOTAL LENGTH 306 BYTES 
1180 REM 
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Eilsstatus 


Henry Troup 


There's been quite a lot written about disk files, and 
tape files, but very little about the PET's logical files. 
Here are some suggestions and a routine which may have some 
utility. 

When you OPEN a file, you specify a logical file number, a 
device number, and (optionally) a secondary address, and 
filename. Then the PET does what is necessary. This 
information is saved, the number of files open is incremented 
and checked, and action is taken to open the file. 

The file data is stored in three tables - logical files, 
devices, and secondary addresses. The tables start at $0251 
($0242 old ROM), $025B ($024C), and $0265 ($0256) respectively. 
The count of number of files is at $00AE ($0262). The filename 
is not saved - it's sent to the device. 

The secondary address is OR'd with $60, and then stored. 
If no SA is specified, a value of $FF will be found in the 
table. 


When a file is closed, the file last opened is swapped 

into its place. So if you open files 1, 3, and 5; and then 
close 1, the file table contains entries for 5 and 3 (plus a 
dummy copy of 5) . 

Now, we can write a routine to check on file status. Here it 
is: 

10 REM FIND FILE STATUS 

15 INPUT"LOGICAL FILE NUMBER ";LF 

20 NF = PEEK (174): IF NF = 0 THEN PRINT "NO FILES 

OPEN":END 

30 PF = 0:FOR X=1 TO NF:IF PEEK(592+X) = LF THEN PF = X 
40 NEXTX:IF PF = 0 THEN PRINT "FILE" LF "NOT OPEN":END 
50 PRINT "LOGICAL FILE";LF "OPEN" 

52 PRINT "ON DEVICE";PEEK(602+PF) 

55 P = PEEK(612+PF) AND 159 :IF P = 159 THEN P = 0 
60 PRINT "WITH SECONDARY ADDRESS";P 

To use this, just open the files, and GOTOIO. If you RUN the 
program, you'll abort all files. 

You could use a version of this routine if you're doing 

dynamic LOADS - files are not affected by the LOAD, and you can 

find them. 
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More On Screen Print 


John coonai 6 , 
Wav ci, Ont. 

I found Jim Butterfield's machine language Screen Print 
Routine (Transactor #5) very useful in a program I am 
developing. But in order to stretch the forty columns on the 
screen to eighty columns on the printer I have added an 

"i I" tf JS *Z.Z' I !< « "k 

The change is quite easy. 

Method #1 using Supernionl.O 

1. load the screen print routine code, 

2. use command ' .T 0359 03B3 035E 1 to open up 5 bytes in 

the code at $0359, 

3. use command '.M 0359 035E' and change 

0359 A9 11 AE 4C E8 A9 11 AE' to 

0359 A9 01 20 02 FF A9 11 AE', 

4. use command ' ,M 03B0 03B7 ' and chanae ' A6 ' at $03B0 to 

'Al', 

5. use command '.S "an:name",dv,033A,03B9'. 

Method #2 using the Basic Loader for the code 

1. load the screen print routine basic loader, 

2. change 947 in line 100 to 952, 

3. add ',1,32,210,255,169' to the end of the DATA statement 
at line 230, 

4. change 166 at the end of line 330 to 161, 

5. save the modified program. 

This modification sends a control character (CI1R$(1) as 
per the above modification) to the printer after every 
carriage return. 

To use the screen print routine simply use 'SYS826' in 
your code. To change or ensure the mode of the routine just 
use 1 POKE858,l or 129' before the SYS826 command. For 
' e: <s<i! s ‘ •::-{> ' mode, use '1': for ' unenhanced ' mode, use 

'129 ' . 
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^commodore 

The T ransactor 


comments and bulletins 
concerning you r 
COMMODORE PET 1 


va2 

BULLETIN 11 


PET** 1 is a registered Trademark of Commodore Inc 


Bits and Pieces 


WordPro and the NEC Spinwriter 


Those using WordPro 3 or 4 are probably just realizing 
the potential of the PET as a dedicated wordprocessing 
system. With a Spinwriter for letter quality hard copy, this 
potential is substantialy increased. However, the Spinwriter 
requires a little preliminary set-up before it will operate 
correctly with WordPro. The front panel switches of the NEC 
are covered in the WordPro manuals but some extra switches 
inside the printer are not. 

Inside the Spinwriter are four large circuit boards near 
the back of the unit. ( A smaller fifth board is also there 
but not important here ) The two boards closest to the back 
of the housing contain these extra switches. A word of 
caution: these boards support some CMOS chips... excessive 
static discharge to pins on CMOS chips will result in 
ireparable damage. You may want to have qualified personel 
make these changes. 


On the very back board lies one of these switches. The 
switch, labelled 'SW1', is actually a DIP switch with 8 small 
slide switches on it. The second most back board contains 
the other three DIP switches labelled ' SW1 ' , 'SW2 ' , and 

'SW3 1 . Early versions of these boards require you to pull 
them out of their sockets to gain access to the switches. 
This also means removal of a bracket and four cable 
connectors, two of which are tucked away at the right of the 
unit. Newer versions have the DIP switches placed near the 
top edges of the boards which will have you finished these 
mods in a flash. NEC assures me that both versions operate 
identically, only the board artwork was changed. 


Now for the switch positions, 
switches for the four DIPs will be 
right 1 for on and 0 for off: 

( X = Do NOT Change) 


Each set of 
labelled from 


8 slide 
left to 


back board 


SW1 = 00101X11 


2nd from back board 


SW1 = 00000000 

SW2 = 10100000 


SW3 = 10100000 
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Soft Disk Device Number 


OPEN 1, 8, 15 

PRINT#1,"M-W" CHR$ ( 50) CHR$(0) CHR$(2) CHR$(9+32) CHR$(9+64) 

The above command sequence will change a Commodore disk 
unit from device #8 to device #9. This works on the 2040 
(DOS 1.0), the 4040 (DOS 2.0) or the 8050 (DOS 2.5). Once 
executed, another logical file must be OPENed to the command 
channel else a 7DEVICE NOT PRESENT ERROR will occur on the 
next PRINTtl. Alternately, since device #8 is no longer on 
the bus, CLOSE 1 and reOPEN using 9 instead of 8. The disk 
can actually be changed to any device number by substituting 
the 9 in the last two CHR$'s for any number between 8 and 15. 
Reset ( PRINT#1,"U:" or "UJ" ) or power up will restore to 
device #8. 

This works best when you need two disks on line but 
don't want to cut the jumpers of the main logic board inside 
the disk. Remember though, if two disks are powered up on 
the bus as device #8, the above sequence will change the both 
to device #9. 


Commodore Education Advisory Board 

Commodore has now received enough educational programs 
to produce and distribute 4 CEAB Diskettes, with a fifth one 
in the works. On behalf of Commodore, the Board and the 
recipients, I would like to thank all who have contributed. 
Through you we have successfully established a software share 
program for learning institutions across Canada and beyond. 
Let's keep it goingl 


TPUG Minutes 


Richvale Telecommunications have available cassette 
recordings of the Toronto PET Users Group meetings. Richvale 
also has CEAB programs on tape for those operating without 
disk. For more information contact: 

Richvale Telecommunications 
10610 Bayview Ave. Unit 18 
Richmond Hill, Ontario 
L4C 3N8 
416 884 4165 
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Su permon Notes 


To get 'long' disassemblies on your printer, find the 
line-count with: 

.H xxxx,yyyy A9 16 85 B5 

where xxxx to yyyy is the memory range of Supermon. Change 
the '16' value to some higher number ( maximum FF ) to 
disassemble lots of lines at a time. 

If you'd like the output split into pages on your 202X 
printer, that's all you need do. PET printers will page 
after every 60 lines of output and continue printing for the 
specified number of lines. But if you want a 'continuous' 
printout without paging, you should also do a hunt for: 

.H xxxx,yyyy 86 B9 A9 93 

and change 93 to 13. Remember to restore the 16 and 93 
values if you plan to return to "screen" monitor. 


PET Sound 


These next two items go hand-in-hand. The first was 
originaly printed in Volume 1 Transactor but, due recent 
inquiries, felt it worth reprinting in Volume 2. The second 
item is an inexpensive amplifier submitted by Tom Guzik of 
the Selkirk Electronics Club in Thunder Bay. 

Poor Man's D/A Converter _ 

Cheap; good for generating Chamberlin style music. 
Precision resistors are preferred, but most anything will 
generate a recognizable sound. 

Section B of the diagram supports CB2 sound effects - so 
that this interface covers most sound requirements. 


from 

PET 

Parallel 

User 

Port 



To Amo 






The capacitor provides some reduction of the sampling 
frequency ( when generating music ) ...tone controls on the 
amplifier will also help, if available. 

The output of this D/A converter can be fed directly 
into an input of your stereo for excellent results. 


500 Milliwatt Amplifier _ 

This simple 500mw amp works on 9 volts available from 
pin 1 or 4 of the Jll connector inside the PET. All you need 
is a $2.00 I.C., a 50 cent capacitor, a spare potentiometer 
and a speaker. 
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Commercial Salvaging of Information from 2040 Diskettes 


Diskette salvaging should be seldom needed by the 
average PET user. If backup copies are made, and due care is 
exercised, there is little chance of losing information. 
Even so, there are occurences where vital information is lost 
and urgently needs to be retrieved, if possible. 

Of course there are cases where diskettes are too badly 
damaged to recover. Such cases would include exposure to a 
strong magnetic field, physically corrupted disks (torn, 
folded, coffee stained, etc.), or even re-formatted 
diskettes. However, some forms of diskette damage can be 
overcome. For example, a disk that can be initialized but 
has an unreadable directory stands an excellent chance of 
being totally reclaimed. Even diskettes that can't be 
initialized can often be recovered. 

There are now, in Toronto, 3 diskette repair stations 
prepared to offer this service on a commercial basis to the 
PET community. 


Syntax Logic Design 
32 Ecclesfield Drive 
Agincourt, Ontario 
M1W 3J6 
416 498 1093 
416 447 1750 

Bret Butler 
17 Astoria Ave. 
Toronto, Ontario 
M6N 2V5 
416 763 6758 


Technical Data Services 
19 Wagon Trailway 
Willowdale, Ontario 
M2J 4V4 
416 497 0595 


Fees 


Standard charges have been set up for all 3 stations. 
Anyone wishing diskette repair should send the diskette to 
one of the above addresses, amply protected for transit, and 
include a cheque or m/o for $25.00 . Any pertinent 
information about the diskette would also be helpful 
(directory listings, WordPro files?). 

Diskettes that cannot be repaired will be returned with 
a written report and a refund of $15.00. 

Information that is recovered will be transfered to a 
new diskette and returned with the original and a written 
report. 

The above applies to sequential type data only (i.e. PRG 
files, SEQ files or USR files). Direct access information 
will require custom work at an extra $25.00 or more. 

It is suggested that customers call before sending any 
material. 
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Text Editor 


Jim Buttertield 
Toronto 


A poor man 
program can be 
general purpose 
most sequential 


s word processor? Not exactly, although this 
used in that way. It's more accurately a 
text editor, and can create, revise and print 
data files. 


The program is line-oriented: it gets a line, then 
outputs it. However, there are features that allow you to 
deal with smaller elements - words or characters - or larger 
elements such as paragraph or entire text. 


Because it keeps only a line at a time, it will run on 
very small PETs and you won't be bothered by garbage 
collection delays. It's written entirely in BASIC: that 
makes it portable and easy to chang (say to cassette tape 
operation). It won't run too fast, but that's part of the 
plan: you'll be able to stop and correct information as you 
go. 


For cassette tape operation, just change the OPEN 
statements in lines 120 and 160. If you still have original 
ROMs, you'll need to change SW=ST on line 410 to read IF ST 
<> 0 GOTO 470. 


Operation 

You can enter information from the keyboard and/or a 
file; you can write the output to either a file or the 
printer. Just answer the startup questions. 


If you 
start and 
half-shaded 
input-mode. 


have an input file, 
at other parts of 
character. This 
Your choices are: 


you'll be prompted at the 
the program run with a 
asks you to supply an 


I 

T 

S 

P 

L 

W 

C 


Don't input; 
Input the ent 
Search; input 
string; 

Input a parag 
Input a line; 
Input a word; 
Input a chara 


accept 
ire te 
until 

raph; 


cter. 


an insertion from the keyboard; 
xt from the file; 
you receive a selected character 


Press any of the above characters, or 
continue in the same input-mode as before. 


press SPACE to 


Insert mode, I, remains in force until you enter a null 
line, that is, a line with no characters (not even a space). 
At that time, you'll either prompt for a new input-mode, or 
quit if there's no input remaining. 

If you don't have an input file or if your input file is 
finished, you'll go directly into Insert mode without 
prompting. Entering a null line will stop the program. 
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All input-modes except Insert can be changed while input 
is taking place. For example, if you're in Text mode, touch 
the L key for Line mode, and you'll stop at the end of the 
current line; or W will stop you after the next word. 

When input pauses, you may press RETURN and input will 
resume, printing the next line, word, or whatever. 
Alternately, you may delete or insert text, pressing RETURN 
when you are finished. 

If you have deleted or inserted text, you will be 
prompted for a new input-mode. Select it, or press SPACE to 
continue as before. 

When you're in Paragraph mode, a deletion or insertion 
will signal the program that you probably want to add a 
paragraph to the text. In this case, pressing RETURN won't 
take you back to the prompt for inputmode. Like Insert mode, 
you can keep going until you enter a null line. 

A word about null lines and blank lines. A null line, 
which has nothing on it, is never written. If you want a 
blank line to be written, you must put at least one space 
there. A blank line - containing one or more spaces - is 

used by the program to detect the end of a- paragraph. 

To review: a null line is not written; it's a good way 
of deleting a line entirely from a file. A blank line, with 
one or more spaces, will be written and mark the end of a 
paragraph. 

For your convenience, the Delete key has an automatic 
repeat feature built in. Cursor control keys other than 

Delete are ignored. 

As mentioned before, you can switch modes during input 

just by tapping a key. Input timing is rather brief, 

however, during Character mode or word mode. In this case 
it's easier to force the input-mode prompt with a "dummy" 
insertion: tap SPACE, then DELETE. You will have changed 
nothing, but the input-mode prompt will appear when you press 
RETURN. 
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NOTE : 'CL' IN SQUARE BRACKETS MEANS CURSOR-LEFT 
100 PRINT "TEXT EDITOR JIM BUTTERFIELD" 

110 INPUT"INPUT FILE NAME N[CLCLCL]";N$ 

120 IF N$<>"N"THEN M=2:OPEN1,8,3,N$ 

130 INPUT"OUTPUT FILE TYPE (DISK OR PRINTER) P[CLCLCL]";T$ 

140 IF ASC (T$) 06 8 GOTO 200 
150 INPUT"OUTPUT FILE NAME";F$ 

160 OPEN 2,8,4,"0:"+F$+",S f W":GOTO 210 
200 OPEN 2,4:U$=CHR$(17) 

210 B$=CHR$(32)+CHR$(20)+CHR$(20) 

-220 P$=CHR$ (17 5) +CHR$ (157) 

230 R$=CHR$(13) 

240 S$=CHR$(32) 

250 J$=CHR$ (16 8) +CHR$ (157) 

260 POKE 59468,14 

270 D$=R$:GOSUB820 

280 IF N$="N"GOTO 480 

300 REM TEST KEYBOARD FOR MODE 

310 GET M$:GOSUB860 

400 REM GET INPUT STUFF 

410 GET#1,D$:SW=ST 

420 IF D$=R$ OR (D$=K$ AND S=l) THEN GOSUB500 
430 L$=L$+D$: IF D$OS$ THEN S=1 
440 PRINT D$;:IF M=6 THEN GOSUB500 

450 IF D$=G$ THEN IF LEN(L$)>=H THEN IF RIGHT$(L$,H)=H$ THEN K=1:GOSUB500 

460 IF SW=0 GOTO 300 

470 CLOSE 1 

480 M=0:GOSUB500 

490 CLOSE2:END 

500 F=0:S=0:REM PAUSE FOR CHANGE/RETURN KEY EXITS 
510 L=LEN(L$) 

520 IF M=2 GOTO700 

530 IF (M=3 OR M=7) AND K=0 GOTO700 
540 PRINT P$; 

550 R=R+1:P=PEEK(151):GETC$:IFC$<>""THEN R=0:C=ASC(C$):GOTO580 
560 IF P=255 OR CO20 THEN C=0:GOTO550 
570 IF R<20 GOTO550 

580 IF C=20 AND L>0 THEN F=1:L$=LEFT$(L$,L-l) :PRINTB$; 

590 IF C=13 GOTO700 

600 IF C=34 THEN PRINT CHR$ (3 4 ) ; CHR$ ( 20) ; 

610 IF (C AND 127)>31 THEN F=1:PRINT C$;:L$=L$+C$ 

620 GOTO510 

700 REM RETURN - TEST FOR EXIT 
710 IF D$<>R$ AND M>1 GOTO810 
720 IF L=0 GOTO750 

730 IF K=0 AND M=3 THEN FOR J=1 TO L:IF MID$(L$,J,1)=S$ THEN NEXT J:K=1 
740 PRINT" ":PRINT#2,U$;L$;R$;:L$="":IF M<3 OR K=1 GOTO510 
750 D$="" 

800 REM CHECK FORMAT KEYS 
810 IF F=0 GOTO920 
820 IF M=0 GOTO920 
830 PRINT J $; 

840 GET M$:IF M$=""GOTO840 

850 IF M$="I" THEN M=1:K$="":G$="":GOTO510 
860 IFM$="S" THEN M=7:K$="":GOSUB930 
870 IF M$ = "C" THEN M=6:K$="":G$="AA" 

880 IF M$="W" THEN M=5:K$=S$:G$="AA" 

890 IF M$="L" THEN M= 4:K$="":G$="AA" 

900 IF M$="P" THEN M=3:K$="":G$="AA" 

910 IF M$="T" THEN M=2:K$="":G$="AA" 

920 K=0:RETURN 

930 PRINT:INPUT"SEARCH FOR";H$ 

940 H=LEN(H$):G$=RIGHT$(H$,l):RETURN 





D. Hook 
58 Steele St. 
Barrie, Ontario 
L4M 2E9 


There are some occasions when you may wish to program a 
card game. By addition of a subroutine that gives good 
graphics (for the card symbols), most would be improved. 
Since this would represent too much work, the finished 
version fails to take advantage of the Pet's forte. 

This program attempts to remove the drudgery from the 
task. By understanding its mechanics, I hope that you can 
add the feature. See me at the next TPUG meeting if you 
can't be bothered typing it all in. 

I have included a variables cross-reference (thanks to 
Jim Butterfield) and a separate chart to make the graphics 
more easily entered. 

Consult the listing as we work through the flow: 

Line 10-80: 

Data statements used in the initialization. 

Subroutine 40000: 

First seeds the random number generator. Creates the 

D%( array for D% decks of cards. The card values are: 

0-12 A2345...K clubs 

13-25 A2345...K diamonds 

26-38 A2345...K hearts 

39-51 A2345...K spades 

These values are very important identifiers to recover 
the suit and value of the card in question. 

Since D% is no longer needed, it is redefined to the 

total number of cards in the game (minus 1). 

The I$( array is simply the index value to be printed in 
the corner of each card. These are read from Data Line 10. 

The S$( array is two-dimensional. The first has 0,1,2 
suit symbols read from blanks, Sl$ and S2$. The second 
dimension refers to the suits: 0-3 in the same order as 

above. 

The S% ( array is for spot cards 1 through 10, and for 
rows 1 to 7 of each card to be printed. Line 20 provides the 
data. Note the lack of "0" entries, as the comma is 

sufficient. 

The entries in the array indicate the NUMBER OF SUIT 
SYMBOLS that belong in each row. Since we are not concerned 



with the actual suit at this time, all the spot cards of a 
given value will be the same. 

For the face cards, the F$(I,J) array is defined: 

I = 1,2,3 for J,Q,K 
J = 1-7 for rows 1-7 

The data in Lines 40-80 give the strings for the card 
pictures. To facilitate entry of these graphics, the table 
below is provided: 


GRAPHICS DATA LINES 40 - 80 

Jack 


1. 

M 

la 

RO 

b 

Rv 

) 

b 

b 

II 




2. 

II 

b 

RO 

< 

Rv 

■ 

: 

b 

Rv 

b 

b 

n 

3. 

II 

b 

i 

RO 

) 

Rv 

) 

RO 

la 

Rv 

b 

b " 

4. 

II 

b 

& 

) 

V 

RO 

) 

Rv 

St 

b 

II 


5. 

n 

b 

b 

la 

RO 

) 

Rv 

) 

RO 

j 

Rv 

b " 

6. 

n 

b 

b 

■ 

P 

b 

RO 

7 

Rv 

b 

it 


7. 

n 

b 

b 

RO 

) 

b 

la 

n 





Queen 













8. 

n 

) 

P 

b 

b 

b 

n 






9. 

n 

b 

RO 

) 

Rv 

B 

★ 

b 

b 

b 

n 


10. 

it 

b 

RO 

b 

b 

b 

b 

Rv 

7 

b 

n 


11. 

ii 

b 

& 

V 

V 

V 

& 

b 

11 




12. 

ti 

b 

< 

RO 

b 

b 

b 

b 

Rv 

b 

n 


13 . 

ii 

b 

b 

b 

4 

] 

) 

b 

ii 




14. 

ii 

b 

b 

b 

L 

) 

n 






King 
15 . 

ii 

la 

RO 

b 

b 

Rv 

) 

b 

ii 




16. 

it 

b 

b 

1 

b 

& 

B 

b 

ii 




17. 

ii 

b 

RO 

) 

b 

b 

b 

< 

Rv 

b 

ii 


18. 

ii 

b 

& 

7 

? 

? 

& 

b 

II 




19. 

ii 

b 

RO 

7 

b 

b 

b 

Rv 

) 

b 

ii 


20. 

ii 

b 

] 

& 

b 

% 

b 

b 

II 




21. 

ii 

b 

RO 

) 

b 

b 

la 

It 






Code: 

" - quote 

b = blank 

Rv = reverse on 

RO = reverse off 

la = shifted left arrow 

All other keys are their "shifted" equivalents (i.e. 
graphics). 


We now return to the main-line program. 
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Three subroutines are offered in the menu: 

The DISPLAY CARDS is simply for use in de-bugging, and 
need not be part of any program that you may use. 

The SHUFFLE is an integral part of any game program, and 
is both compact and fast. 

The SUBROUTINE FOR GAMES allows the many options that 
are essential to the utility of this program. 

DISPLAY CARDS—SUBROUTINE 42000 

Virtually all of this is duplicated in Subroutine 43000, 
where the main discussion will take place. 

The purpose is to print (on the sceen) the pictures for 
all the cards used in the game. Line 42020 defines the 
starting line, L%=7, sets up to print, A%=5, cards across the 
screen, and will start printing at tab, TB=0. 

Variable L is the loop counter to print from card C%=0 
to C%=D%, the last card of the last deck. Since no shuffling 
takes place, you may see the deck(s) flash by. Starting at 
the A of clubs, the K of spades will be the last, regardless 
of the number of decks selected. 

SHUFFLE—SUBROUTINE 41000 

Some sort routines require an extra array to store the 
intermediate values. Others require a pointer array to flag 
the cards already taken. 

No such precautions need be taken here. The array is 
sorted in place. A card already chosen will not be shuffled 
again, so the process takes only N-l passes for N cards. If 
you haven't seen this before, follow the logic below: 

The loop variable is I, for the D% cards. Variable J% 
provides a random number from 0 to D% on the first pass. 
Thus all cards are available to be selected. 

Assume we have one deck, so D% is 51. Assume the random 
number, or J% , is 14. Let's say that card number 14 is the A 
of clubs. In our deck, the card value is 0 (see above). 

Define K%=D%(14), which means K%=0 this time. 

Now comes the exchange, where we take the last value, 
D% (51) , and put it into D%(14). ( We haven't lost D%(14), 

since it is stored in K% ). 

Put K% into the last position, or D%(51), and the first 
pass is complete. 
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If you have observed that the loop counter, variable I, 
appears throughout, you may see what happens next. 

As NEXT I is reached for the next pass, the upper 
boundary shrinks by one. The (former) last entry cannot be 
chosen for J%, nor be part of the subsequent exchange. 

Each pass gets another card, and the deck(s) get 
shuffled. A pretty tidy routine! 

SUBROUTINE FOR GAMES—SUBROUTINE 43 000 

Initially you are asked to respond to a series of 
questions which will establish the various variables to be 
used in your game. These prompts are only to provide a cue 
for your usage, so lines 43000 to 43040 can be dropped. Be 
advised that you will have to provide for these to be defined 
in your program. 

P% is the total number of cards to be printed. Make it 
a large number if you plan to play your game for a while. 

L% is the screen line number where the card is to be 
printed. The cards are 9 rows high, so watch where you 
start. You may define this differently before each 
subroutine call. 

A% is the number of cards across the screen. The tab 
values are reset based on this value. Since the cards are 7 
spaces wide, only 5 cards may fit across the screen. This 
too may be changed before calling. 

TB% is the tab position for the first card on the line. 
Note that if 5 cards are printed, you must start at TB%=0. 
whenever A% is checked, the tab position advances by 8 
positions (Line 43150). Change this line if you want wider 
spacing between the cards. 

M% is the variable to detect when to reshuffle the whole 
deck(s). Line 43040 sets this to the whole deck(s), so keep 
this if it suits you. Otherwise redefine it to a convenient 
number, based on the number of decks in play. 

Note that this routine does not give an automatic first 
shuffle when the "game" begins. Do this yourself with a call 
to SBR 41000 . 

On to the meat of the routine: 

Line 43100: 

Initializes the card counter, C%, to select the next 
card from the deck. This is an index to the actual card 
array, D%(. The next check is to see whether it is time to 
shuffle—if it is, then the shuffle is done. 

Please observe that I have included the "L" loop as part 
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of the subroutine. In your game this would undoubtedly be 
part of the main code. It has been done this way to allow 
printing as part of this program. 

Line 43130: 

You will recall that our deck consists of coded (0-51) 
values to represent the cards. Here we extract the suit into 
variable S%=0,1,2,3 and the card value into variable V%=1-13 
(A23..,K). 


Since you will want to employ these values in your game, 
you have them on return to your main routine. 

Line 43140: 

Checks to see if it is time to print back in the "first" 
location again. Depends on the afore-mentioned values for 
A%, TB%, L%. Recall that variable "L" simply is the counter 
for the total number of cards printed. 

Line 43150: 

Tabs ahead 8 spaces horizontally and moves the cursor 
up. Only used where several cards are to appear on the same 
screen line. Change as described above, if you wish. 

Line 43160: 

The top line of every card has its "index" name (upper 
left corner) and is filled out with blanks. We then enter 
the loop to print the next seven rows down. 

Line 43170: 

If the card is a face card, branch around to Line 43500. 
Line 43250: 

This part gets tricky... use the value of the card, V% 
and the row number, J as an index into the S% ( array. That 
array will give you the number of suit symbols (0,1,2) to be 
printed on a given line for the card. 

Then combine that with the suit variable, S% to 
determine which symbols to put on that line. The array, S$( 
gets the right ones to print. 

For spot cards, this is repeated for each of the seven 

rows. 

Lines 43500,43510: 

For face cards, we need to print the proper suit symbol 
near the upper left and the lower right. If J=1 or J=7 then 
this is done at the start of each of these lines. 

Then we look at array F$( to get the card value, V%-10 
and the row number, J. 

Line 43520: 

If J<>1 or J<>7 then we just do the second half of the 
above. 
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We loop 7 times then print the bottom line of the card 
The lower right corner also contains our "index" name. 


Line 43800: 

Since we are printing 
loop. This, like the FOR 
main program. 


"L" cards, we 
in Line 43100 


cannot forget this 
should be in your 


CROSS REFERENCE - PROGRAM CARD UTILITY 


A% 

42020 

42030 

43020 

43140 








C% 

42000 

42010 

43100 

43130 








D% 

40000 

40010 

40020 

41000 

41010 

42000 

43040 





D% ( 

40020 

41000 

41010 

42010 

43130 







E9 

40000 











F $ ( 

40080 

42500 

42510 

42520 

43500 

43510 

43520 





I 

40000 

40020 

40030 

40050 

40060 

40070 

40080 

41000 

41010 



I$( 

40030 

42050 

42750 

43160 

43750 







J 

40000 

40020 

40070 

40080 

42050 

42070 

42500 

42510 

42520 

42750 

43160 


43250 

43500 

43510 

43520 

43750 







J% 

40000 

41000 

41010 









K% 

40000 

41000 

41010 









L 

42000 

42030 

42800 

43100 

43140 

43800 






L% 

42020 

42030 

43010 

43140 








M% 

43040 

43100 










P% 

43000 

43100 










s$( 

40050 

40060 

42070 

43250 








S% 

42010 

42070 

42500 

42510 

43130 

43250 

43500 

43510 




S% ( 

40070 

42070 

43250 









Sl$ 

40040 

40050 










S2 $ 

40040 

40060 










T% 

42030 

42040 

42050 

42070 

42500 

42510 

42520 

42750 

43140 

43150 

43160 


43250 

43500 

43510 

43520 

43750 







TB% 

42020 

42030 

43030 

43140 








TI 

40000 











V% 

42010 

42050 

42060 

42070 

42500 

42510 

42520 

42750 

43130 

43160 

4317 0 


43250 

43500 

43510 

43520 

43750 







z 

130 

140 

150 

15010 

43000 

43010 

43020 

43030 

43040 



z$ 

120 

130 

160 

15000 

15010 
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10 tiRTH H, 2 .■ 3, 4,3,6,7,8,3,10, J, Q, K 

28 DATA,,,1,,,,1,,,,,,1,1,,,1, , , 1,2, , , , ,,2,2,,,1,,,2 

30 BATA2,,,2,,,2,2,,1,,2,,2,2, , 2, , 2, , 2,2,,2,1,2,,2,2,1,2,,2,1,2 

40 BflTfl” ^ sr "," »u a i" 

50 nflTfl" wvwm wmg " 

60 BflTfl" nSS"," W T," n ITS! I ■ Zh " 

70 BflTfl" -■ a i ir m w ", "^g zw i m §r -a " 

80 BflTfl" iV.Vi ■■ ZW II I "," W 

90 Gfisi IB40000 

100 PR I NT " IT T flB < 10 > " SCflRB UTILITV" : PRINT"M1. BISPLflV CARDS" : PRINT "M2. SHUFFLE" 
110 PR I NT " m. SUBROUT INE FOR GAMES " •' PR I NT " M . QU IT" : PR I NT " MMStSELECT I ON ? " , 
120 GETZT:IFZT=""THEN120 
130 Z=VflL( Z $):PR INTZ : IFZ<10RZ>4THEN100 
140 IFZ=4THENENB 

150 ONZGOSUB42000,41000,43000 : PRI NT"MSDONE—HIT A KEV 
160 GETZT:IFZT=""THEN160 
170 GOT0100 
14998 ENB 

15000 INPUT" iilll" 2$ '■ I FZT="ii" THEN 15080 : REM INPUT SER. 

15010 Z=VflL <2 $):RETURN 

40000 I =RNB < -TI * 1E9 > : J=0 : DZ=8 : JZ=@ : KZ=0 : REM INITIALIZ AT I ON 

40010 INPUT"NUMBER OF BECKS 1IIH";DX 

40020 BIMDZ < BZ*52 > : FOR I -1TODZ : FOR J=0TO51 • DZ < 52* <1-1 ) + J > = J : NEXT J, I : DZ=DZ*52-1 
40030 BIMI t <13 > =FORI = 1 TO13:READI$ <I) : NEXT I 

40040 Sl$=" * ♦ * * " : S2T=" 4 1 * * ♦ * * * * " 

40050 BI MS$ < 2,3 > •• FOR I=0T03: St (&, I > = " " : St < 1, I )=M IB t < SIT, 1*4+1,7 ) 

40060 S$ <2,I> =MID$< S2T,I*6+1,7):NEXTI 

40070 BIMSZ < 10,7 > • FOR I = 1 TO 10 : FOR J = 1T07 •' READS'.' < I, J > : NEXT J, I 
40080 BIMFT < 3, 7 ) •' FOR I = 1T03 : FOR J= 1T07 : REflBFf < I, J > : NEXT J, I 
40090 RETURN 

40999 REM SHUFFLE 

41000 FOR I =0TOB';: J*.= < D'.'+1 -1 > *RNB < 1 > = KZ=DX < J'.' > 

41010 BZ<JZ)=BZ<DZ-1>:BZ< DZ-1> =KZ:NEXT I:RETURN 

41999 REM BISPLflV ALL CARDS 

42000 PR I NT " □" : CZ=0 •• FORL=0TOBZ = CZ=CZ+1 : 

42010 SZ=BZ<CZ-1>X13:VZ=BZ<CZ-1>-13*SZ+1 

4 ~ , Pl ~'|7l { V —T ; pjV —^ ; TgV-jT-j 

42030 IFLXflZ= I NT < L/flZ > THENTZ=TBZ : F'R INTLEFTT < " , LZ > ■ GOTO42050 

42040 TZ=TZ+8 : F'R I NT" TTTTTTTn" 

42050 F'R I NTT AB < TZ > " Zl " LEFTT ( 1 1 < VZ > + " " , 7 > = FOR J= 1T07 

42060 IFVZ>10THEN42500 

42070 PR I NTT AB < TZ > " Zi" St < SZ < VZ, J > , SZ > ■ GOTO42750 

42500 I FJ= 1 THENF'R INTTflB < TZ> " Zi " MI Bf < " " , SZ+1, 1 > FT < VZ-10, J > : G0T042750 

42510 IF J=7THENPR I NTT AB < TZ ) " a"FT<VZ-10, J> " a"MIBT< "■f 1 #**" , SZ+1, 1 > " " : G0T042750 
42520 F'R INTTAB < TZ ) " Zi" FT < VZ-18, J > 

42750 NEXT J : PR I NTTflB < TZ > " Zi" RIGHTT < " " +1T < VZ > , 7 > 

42800 NEXTL:RETURN 

42999 REM GflME-TVF'E SUBROUTINE 

43000 F'R I NT" 2HOW MANY CARDS TO PRINT"; : GOSUB15800 = PZ=Z 
43010 PR I NT"START ON LINE < 1-16>"; :GOSUB15800 : LZ=Z 
43020 PRINT"HOW MANY ACROSS <l-5>"; : GOSUB15008 : flZ-Z 
43030 PRINT"START AT TAB <0-32)"; =GOSUB15808:TBZ=Z 

43040 MZ=DZ+1 : F'R I NT " SHUFFLE AFTER < 1 - " MZ " ) " , : GOSUB 15000 : MZ=Z 

43100 PR I NT " □" : CZ=0 : F0RL=8T0F'Z-1 : CZ=CZ+1 : I FCZ=MZ+1 THENCZ= 1 •' G0SUE41000 

43138 SZ=DZ<CZ-1> X13 : VZ=BZ<CZ-1)-13*SZ+1 

43140 I FLXflZ= I NT < LXAZ > THENTZ-TBZ : F'R INTLEFTT < " , LZ > : G0T043168 

43150 TZ=TZ+8 ; F'R I NT " TTTTTTTT1" ; 

43160 PR I NTTflB < TZ ) " Zi" LEFTT < IT < VZ ) + " " , 7 ) : FOR J= 1T07 

43170 IFVZ>10THEN43580 

43250 F'R I NTTflB < TZ ) " Zi" St < SZ < VZ, J > , SZ > •' GOTO43750 

43500 I FJ= 1 THENF'R I NTTflB < TZ > " Zi " MID t < " ", SZ+1, 1 )F$< VZ-18, J > : GOT043750 

43510 I FJ=7THENF'R I NTTflB < TZ ) " Zi"F t < VZ-10, J ) " Zi" MID t < " ♦ " , SZ+1, 1 > " " •' GOTO43750 

43528 F'R I NTTflB < TZ ) " Zi" Ft < VZ-10, J ) 

43750 NEXT J : PR I NTTflB < TZ > " Zi" RI GHTT < " " + IT < VZ ) , 7 ) 

43800 NEXTL:RETURN 


163 








Simple 8010 Modem Programs 


Jim Butterfield 
Toronto 


The programs that come with the Commodore 8010 modem may 
not quite fit your needs. For one thing, a NULL character 
from the line will cause the program to stop, since the input 
arrives as a null string and the ASC function won't work. If 
you communicate with computers that send parity - an extra 
bit intended to safeguard transmission - you'll get some 
funny looking things on your PET screen. 

Speed is of the essence in this kind of Basic program: 
waste a few moments and you may lose an incoming character. 
As a result, the programs are no-frills. Watch carefully for 
timing if you try dressing them up with your own features. 

PET TO ASCII_ 


We need to translate PET's internal code to ASCII, and 
vice versa; and we need to do it fast. Result: an array for 
quick translation each way. F(x) translates incoming 
characters from the line; T(x) translates to the line. 

Most non-printing characters are dropped; I've preserved 
only the carriage return, CHR$(13), and the Delete, CHR$(20) 
to PET and CHR$(8) to the line. If your favorite computer 
needs other special characters, you may put them in the 
table: for example, if the computer recognizes Data Link 
Escape (DLE, sometimes called Control-P) , you could code it 
as shifted-zero on the PET keyboard with: 250 T(176)=16. 

The POKE 1020,0 on line 280 is needed for the new 4.0 
systems to ensure that IEEE timeout works properly. 

PET to PET_ 


Much simpler, of course, since no translation is needed. 
Delete the POKE 59468, 14 (or change it to POKE 59468, 12) if 
you want to stay in graphics. This way, you can draw 
pictures on the other PET's screen. 

All of the cursor controls and graphics work, of course. 
You can even clear the opposite screen remotely, if you wish. 
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For communications to an ASCII system: 

100 REM 8010 INTERFACE JIM BUTTERFIELD 

110 REM FOR ASCII LINES 

120 REM SET SWITCH TO HD 

200 DIM F(255), T(255) 

210 FOR J=32 TO 64 : T(J)=J : NEXT J : T(13)=13 : T(20)=8 

220 FOR J=65 TO 90 : K=J+32 : T(J)=K : NEXT J 

230 FOR J=91 TO 95 : T(J)=J : NEXT J 

240 FOR J=193 TO 218 : K=J-128 : T(J)=K : NEXT J 

250 REM ADD EXTRA FUNCTIONS HERE 

260 FOR J=0 TO 255 : K=T(J) : IF K THEN F(K)=J : F(K+128)=J 
270 NEXT J 

280 POKE 1020, 0 : POKE 59468,14 

290 OPEN 5,5 : PRINT "ASCII I/O READY" 

300 GET A$ : IF A$ <> "" THEN PRINT#5, CHR$(T(ASC(A$))); 

310 GET#5, A$ : IF ST=0 AND A$ <> "" THEN PRINT CHR$(F(ASC(A$))); 
320 GOTO 300 

For Communications to Another PET: 

100 REM 8010 INTERFACE JIM BUTTERFIELD 

110 REM FOR PET INTERCOMMUNICATION 

120 REM SET SWITCH TO HD 

280 POKE 1020, 0 : POKE 59468,14 If text mode desired 

290 OPEN 5,5 : PRINT "PET I/O READY" 

300 GET A$ : IF A$ <> "" THEN PRINT#5, A$; 

310 GET#5, A$ : IF ST=0 THEN PRINT A$; 

320 GOTO 300 


Editor's Note 

We're looking into the possibility of downloading PET programs 
using a simple BASIC driver. Attempts thus far have failed, 
mostly due to the fault of the driver. The task may require a 
little machine language, but we'll keep you posted. 
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Hands On Basic With A PET Herbert D. Peckham 

McGraw-Hill Ryerson 330 Progress Ave., Toronto Ont., M1P 2Z5 

Some Common Basic Programs PET/CBM Edition ed. L. Poole 

Osborne/McGraw-Hill 630 Bancroft Way, Berkeley, Ca. 94710 

Practical Basic Programs ed. L. Poole 

Osborne/McGraw-Hill 630 Bancroft Way, Berkeley, Ca. 94710 

6502 Assembly Language Programming Lance A. Leventhal 

Osborne/McGraw-Hill 630 Bancroft Way, Berkeley, Ca. 94710 

Pet and the IEEE 488 Bus (GPIB) Eugene Fisher / C.W. Jensen 

Osborne/McGraw-Hill 630 Bancroft Way, Berkeley, Ca. 94710 

PET/CBM Personal Computer Guide * C.S. Donahue & J.K. Enger 

Osborne/McGraw-Hill 630 Bancroft Way, Berkeley, Ca. 94710 

Care and Feeding of The Commodore PET 

Elcomp Publishing 3873-L Schaefer Ave. Chino Ca. 91710 

8K Microsoft BASIC Reference Manual 

Elcomp Publishing 3873-L Schaefer Ave. Chino Ca. 91710 

The Pet Subroutine Library * Nick Hampshire 

Computabits Ltd. P.O. Box 13, Yeovil, Somerset, UK 

The Pet Revealed 2nd ed * Nick Hampshire 

Computabits Ltd. P.O. Box 13, Yeovil, Somerset, UK 

6502 Software Design Leo J. Scanlon 

Howard W. Sams 4300 West 62nd St., Indianapolis, Indiana 46206 

Programming & Interfacing the 6502, With Experiments Dr. De Jong 
Howard W. Sams 4300 West 62nd St., Indianapolis, Indiana 46206 

Programming the 6502 Rodney Zaks 

Sybex 2344 6th St. Berkeley, Ca. 

6502 Games Rodney Zaks 

Sybex 2344 6th St. Berkeley, Ca. 

6502 Applications Book Rodney Zaks 

Sybex 2344 6th St. Berkeley, Ca. 

Microprocessor Systems Engineering R.C.Kemp/T.A.Smay/C.J.Triska 

Matrix Publishers 30 N.W. 23rd Place Portland, Oregon 97210 

Practical Microcomputer Programming: The 6502 W. J. Weller 

Northern Technology Books Evanston, II. 

Programming a Microcomputer: 6502 Caxton C. Foster 

Addison-Wesley Publishing 36 Prince Andrew PI. Don Mills Ont. 

PIMS 

Scelbi Publishing Co. P.O. Box 133 PP Stn Milford , Ct. 06460 

Pet Machine Language Guide Arnie Lee 

Abacus Software P.O. Box 7211 Grand Rapids Mich. 49510 
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Understanding Your PET/CBM Vol. 1 

TIS Workbooks: Getting Started With Your PET 

PET String and Array Handling 
PET Graphics 
PET Cassette I/O 
Miscellaneous PET Features 
PET Control and Logic 
TIS P.O. Box 921 Los Alamos, Ca. 

PERIODICALS 

The Transactor 

Commodore Bus. Mach. 3370 Pharmacy Ave. Agincourt, Ont. Canada 
CPUCN Newsletter (UK) 

Commodore Systems Ltd. Slough Trading Estate 818 Leigh Rd. 

Slough Berkshire, England SL1 6BB 

Commodore U.S. Newsletter 

Commodore Systems Ltd. 3330 Scott Blvd. Santa Clara, Ca. 95051 

Compute, The Journal of Progressive Computing 
P.O.Box 5406 Greensboro, NC 27403 

Cursor 

The, Code Works Box 550 Goleta, Ca 93017 
The PAPER 

P.O. Box 524 East Setauket, New York 11733 

PET Prime c/o Guy Leger 

Metro Separate School Board 146 Laird Dr. Toronto, Ont. M4G 3V8 

Kilobaud MICROCOMPUTING 1001001 Inc. 

Peterborough , NH 27403 

Micro: The 6502 Journal 

P.O. Box 6502 Chelmsford, Ma 01824 

Creative Computing 

P.O. Box 789 Morristown, NJ 07960 

Practical Computing 

IPC Business Press Oakfield House, Perrymount Rd., 

Hayward Heath, Sussex RH16 3DH, UK 

Printout 

Greenacre, North ST. Sussex RH16 3DH, UK 

PET Benelux Exchange (Dutch text) 

Burgemeester Van Such Telenstraat 46 7413 XP 

Deventer, Holland 

NOTES 

The above books and periodicals cover a wide range of 
information and topics. The PET masochist reader will want (or 
already has them all) to include them in his or her library. The 
novice will find several elementary books. * Available from 
Commodore dealers. 

The periodicals are directly related to the PET (or have 
significant monthly columns). The British magazines are usually 
available in large Metropolitan areas. 
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I (Qccommodore 

he Transactor 

PET is a registered Trademark of Commodore Inc._ 


comments and bulletins 
concerning you r 
COMMODORE PET 1 


V0L2 


BULLETIN 12 


Transactor Article Contest Winners _ 

In Transactor # 8 , we promised awards for the best 
articles published in Volume 2. We also promised free 
subscriptions to The Transactor Volume 3 for any article 
published. Here are the winners: 

Best Article goes to J. Hoogstraat of Calgary, Alberta, 
for his BASIC Labelling Routine published this issue and also 
for his 2040 Disk I/O Routine in bulletin #10. Mr. 
Hoogstraat gets a free Visicalc package. 

Runner up award goes to F. Van Duinen of Toronto, 
Ontario, for 7LOAD ERROR, D.R.I.P and Program Plus. Mr. Van 
Duinen receives a Commodore calculator, model # SR9190. 


Free Volume 3 subscriptions are going to: 


J. Hoogstraat 
*Kevin Erler 
*James Yost 
Michael Casey 
*B. Brown 
Dave Hook 
Henry Troup 
*Sheldon H. Dean 
Brad Templeton 


F. Van Duinen 
John A. Cooke 
Chuan Chee 

G. Hathaway 
*L.D. Gardner 

Paul Barnes 
Gord Campbell 
Don White 


*Jim Russo 
Rick Ellis 
Jim Hindson 
W.T. Garbutt 
Tom Wojdylo 
*S. Donald 
*John Macdonald 
Dave Berezowski 
*Robert Oei 


* Please call or send in your address. 

This contest will be held again for The Transactor 
Volume 3, prizes may differ. 

If you're asking "What about Jim. Butterfield?", don't 
worry, he's been well taken care of. 


As a Commodore dealer, Bill MacLean of BMB CompuScience 
was not eligible for a prize, but we'll figure something out. 

I'd like to thank all who contributed to Volume 2 and 
special thanks to Jim and Bill for some really excellent 
stuff! Special thanks also to Terry Garbutt for his truly 
genuine help and support. Hoping to hear from all of you in 
Volume 3, I remain, 

Karl J. Bildon 
Editor, The Transactor 


The Transactor is produced on the CBM 8032 using WordPro IV 
and the NEC Soinwriter _ 2.69 _ 



Bits and Pieces _ 

Exclusive OR on Your PET 


In boolean algebra there are three main operators: AND, 
OR and NOT. All three of these are included in PET BASIC. 
However, one sometimes very useful boolean function was not 
included in BASIC. This is the Exclusive OR function. EXOR 
is a function of AND, OR and NOT: 

(a)EXOR(b) = ((a) AND (NOT(b)) ) OR ((b) AND (NOT(a)) ) 

Of course the above would result in 7SYNTAX ERRORS if 
coded literally. The following will accomplish a% Exclusive 
OR'd with b% in BASIC. 

ex% = ((a%)and(not(b%)))or((b%)and(not(a%))) 

An Extra Note on Logical Operators 

Try RUNning this short program: (enter exactly as shown) 

10 xt=5 : xf=6 : rem just random values 

20 print xtandxf 

Now replace line 20 with each of the following line 20's 
and RUN each again. 

20 print xtorxf 

20 print xforxt 

Each of the three will result in 7SYNTAX ERROR IN LINE 
20. But why? When you hit return on a line of BASIC, the 
PET procedes to "tokenize" the line by parsing the characters 
from left to right. 

_Line;_ Would be tokenized as: 

20 print xtandxf print x tan dxf 

20 print xtorxf print x ££ rxf 

20 print xforxt print x for xt 

A general rule: When preceding logical operators with 
floating point variables, insert a space or enclose the 
variable in brackets. Integer type variables will not be 
succeptable to this problem because the "%" sign will act as 
a delimiter. Brackets are still necessary for hierarchy of 
operations. 

This gotcha surfaces in one other command in BASIC 4.0: 

header"diskname",d0,ifx 

The breakdown of this would be format a diskettes on drive 0 
with "diskname" as the title and "fx" as the disk id. But on 
hitting return, a ?SYNTAX ERROR is printed because ifx is 
tokenized as if x . 
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The BASIC Difference Is: 



BASIC 1.0 

BASIC 2.0 

BASIC 

4.0 

PEEK(50003 ) = 

Disable STOP 

0 

1 

160 


POKE 

537,136 

144, 49 

144, 

88 

Enable STOP 





POKE 

537,133 

144, 46 

144 , 

85 

New BASIC 4.0 

machines 

reportedly 

crash 

on 


programs. The culprit is most likely a disable STOP key 
POKE. Also check for POKE59458,62, the screen speed-up POKE. 
As mentioned before, this can also crash machines. See 
article this issue on BASIC 2.0 - BASIC 4.0 Conversions for 
more info. 


Sc reen L oading_ 

All you need is a "screen-set-up" routine to "draw" your 
screen out, and this program will store it on disk: 

100 REM SCREEN SAVER 

110 OPEN 8, 8, 8, "0:SCREEN NAME,P,W" 

120 PRINT#8, CHR$(0)CHR$(128); 

130 EN=33767 : IF PEEK(50003)=160 THEN EN=34767 

140 FOR J=32768 TO EN 

150 PRINT#8, CHR$ ( PEEK (I) ) ; 

160 NEXT 
170 CLOSE 8 
180 END 

Line 130 sets end screen (EN) to 33767 for 40 columns, 34767 
for 80 columns. 

SAVE this program and do a NEW. Nov; enter: 

10 ON X GOTO 120 
100 PRINT "[clrscrn]"; 

110 X=1 : LOAD ”0:SCREEN NAME",8 
120 END 

RUN this and the old screen should pop back on the 
screen as fast a loading lk from disk. The cursor will 
remain in the home position since nothing is actually 
printed. No pointers or variables are changed since it was a 
"dynamic load". But the loader program would RUN from the 
beginning, hence the ON X GOTO statement. This could be 
expanded to accommodate more screen loads simply by adding 
more GOTO data to line 10 and setting X appropriately prior 
to the load. The SCREEN SAVER program could also be modified 
to store only a portion of the screen. But don't forget to 
change the load address in line 120, else the files will 
always load back to screen starting at HOME. 
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PET BASIC LABEL SUPPORT INTERFACE 


J. Hoogstraat 
Calgary, Alta 


This amazing routine resides in the second cassete buffer 
and allows the use of labels in basic and has no effect on 
the speed of basic. 


A label starts with 
length to the basic line 


a # character 
length. 


and 


is retricted in 


EXAMPLE NO LABELS 

100 FOR I = 1 TO 3 

110 ON I GOSUB 500, 550, 600 

120 NEXT 

130 GOTO 800 

140 : 

500 PRINT "SUBROUTINE";I :RETURN 
510 : 

550 PRINT "SUBROUTINE";I :RETURN 
560 : 

600 PRINT "SUBROUTINE";I :RETURN 
610 : 

800 PRINT "END OF TEST":END 


EXAMPLE WITH LABELS 

10 SYS826 
20 : 

100 FOR I = 1 TO 3 

110 ON I GOSUB #SUBl, #SUB2 , #SUB3 
120 NEXT 

130 GOTO #ALLDONE 
140 : 

50 0 #SUB1:PRINT "SUBROUTINE";I :RETURN 
510 : 

550 #SUB2 

555 PRINT"SUBROUTINE";I :RETURN 
560 : 

600 #SUB3:PRINT "SUBROUTINE";I :RETURN 
610 : 

800 #ALLDONE:PRINT "END OF TEST":END 

The llabels can be mixed up with basic statement numbers. 

110 ON I GOSUB #SUB1, 550, #SUB3 

Since the routine resides in the second cassette buffer 
and modifies the basic GET character routine, it prohibits 
the use of any other routines in the second cassette buffer 
or the use of the DOS support program. However it can be made 
part of the DOS support program. 


172 




I do have available a modified DOS support program which 
includes the following: 

1. Regular DOS support. 

2. The BASIC label support interface. 

3. An excellent repeat key function. 

4. A basic disk append command, no messing around with tapes 

Just send me $20.00 and a floppy and I will return a copy 
of the above including all the assembly source on your 
floppy, or for $27.00 I'll send you a floppy with the same. 

By the way, the # label prefix is my choice and can be 
altered to any other special character. 

Have a lot of Basic fun !!! 


Editor's Note: 

Mr. Hoogstraat's routine works on BASIC 2.0 only. To 
convert to BASIC 4.0, some JSRs would need changing. Also, 
the program could no longer reside in the second cassette 
buffer. This space is used by some new BASIC 4.0 commands. 


800 
826 
832 
83 8 
844 
850 
856 
862 
868 
874 
880 
886 
892 
898 
904 
910 
916 
922 
928 
934 
940 
946 
952 
958 
964 
97U 
976 
982 
988 
994 

996 DATA 
998 DATA 169, 0 


POKE J 
f 3 
, 112 
, 230 
, 3 

0, 177 
245, 186 
62, 240 
20 , 201 
105, 208 
201, 44 

76, 95 

165, 41 

0, 177, 92 

92 , 134 , 92 

91, 177, 92 

235, 199, 24 

4, 133, 90 

91, 136, 177 
3, 133, 89 

32, 226, 3 

206, 201, 0 
104, 186, 189 
143, 208, 21 

165, 119, 72 

165, 54, 72 

169, 198, 72 

32, 205, 199 
76, 118, 0 

8, 201, 58 

44, 208, 2 

96 


X : NEXT 


M 033A 03F0 

: 033A A9 

: 0342 A9 

: 034A 02 

: 0352 4C 

: 035A 23 

: 0362 3E 

: 036A 8F 

: 0372 70 

: 037A 4C 

: 0382 DO 

: 03 BA B1 

: 0392 B1 

: 039A A5 

: 03A2 E6 

: 03AA 85 

: 03B2 C5 

: 03BA 68 

: 03C2 DO 

: 03CA A5 

: 03D2 48 

: 03DA CD 

: 03E2 C9 

: 03 EA C9 


47 

85 

71 

A9 

03 

85 

72 

4C 

85 

70 

60 

E6 

77 

DO 

E6 

78 

A4 

37 

C8 

DO 

03 

76 

00 

A0 

00 

B1 

77 

C9 

DO 

F5 

BA 

BD 

01 

01 

C9 

F0 

18 

C9 

AC 

F0 

14 

C9 

F0 

10 

C9 

69 

DO 

6B 

20 

00 

C9 

2C 

DO 

F9 

68 

68 

5F 

C8 

C8 

A6 

28 

A5 

29 

08 

A0 

00 

B1 

5C 

AA 

C8 

5C 

86 

5C 

85 

5D 

85 

5B 

5C 

DO 

03 

4C 

EB 

C7 

18 

5C 

69 

04 

85 

5A 

90 

02 

5B 

88 

B1 

5A 

20 

E2 

03 

59 

B1 

77 

C8 

20 

E2 

03 

59 

DO 

CE 

C9 

00 

DO 

EB 

68 

BA 

BD 

FF 

00 

C9 

8F 

15 

A5 

78 

48 

A5 

77 

48 

37 

48 

A5 

36 

48 

A9 

8D 

A9 

C6 

48 

A9 

C3 

48 

20 

C7 

20 

00 

C8 

4C 

76 

00 

20 

F0 

08 

C9 

3 A 

F0 

04 

2C 

DO 

02 

A9 

00 

60 

00 


FOR J=826 TO 1008 : READ X : 


DATA 169, 71, 

DATA 133, 114, 
DATA 96, 230, 
DATA 120, 164, 
DATA 76, 118, 
DATA 119, 201, 
DATA 189, 1, 

DATA 24, 201, 
DATA 143, 240, 
DATA 107, 32, 

DATA 208, 249, 
DATA 200, 200, 
DATA 208, 8, 

DATA 170, 200, 
DATA 133, 93, 

DATA 208, 3, 

DATA 165, 92, 

DATA 144, 2, 

DATA 90, 32, 

DATA 177, 119, 
DATA 197, 89, 

DATA 208, 235, 
DATA 255, 0, 

DATA 165, 120, 
DATA 165, 55, 

DATA 169, 141, 
DATA 169, 195, 
DATA 32, 0, 

DATA 201, 32, 

240, 4, 


133, 113, 169 
169, 76, 133 

119, 208, 2 

55, 200, 208 
0, 160 
35, 208 
1, 201 
172, 240 
16, 201 
112, 0 
104, 104 
166, 40 

160 
177 
133 
76 
105 
230 
226 
200 
208 
104 
201 
72 
72 
72 
72 
200 
240 
201 
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0010 .OS 

0020 .BA $33A 

0030 
0040 
0050 
0060 
0070 
0080 
0090 
0100 
0110 
0120 
0130 
0140 
0150 
0160 
0170 
0180 
0190 
0200 
0210 
0220 
0230 
0240 
0250 
0260 


033A-A947 

0270HOOKUP 

LDA 

#L,LABELS 

033C-8571 

0280 

STA 

*GETCHR+1 

033E-A903 

0290 

LDA 

#H,LABELS 

0340-8572 

0300 

STA 

*GETCHR+2 

0342-A94C 

0310 

LDA 

t$4C 

0344-8570 

0320 

STA 

*GETCHR 

0346-60 

0330 

0340; 

RTS 



0350; BASIC 
0360; 

LABELS 

SUPPORT INTERFACE 

03 47-E677 

0370LABELS 

INC 

♦CHAD ;DO MISSING PART 

0349-D002 

0380 

BNE 

=+3 ;OF GETCHR. 

034B-E67 8 

0390 

0400; 

INC 

♦CHAD+1 

03 4D-A437 

0410 

LDY 

♦CLIN+1 ;IMMEDIAT MODE ? 

034F-C8 

0420 

INY 


0350-D003 

0430 

0440; 

BNE 

LABELI ;NOT IMMEDIAT. 

0352-4C7600 

0450NLABEL 

0460; 

JMP 

GOTCHR ;NORMAL CONTINUE 

0355-A000 

0470LABEL1 

LDY 

#0 ;# PREFIX ? 

0357-B177 

0480 

LDA 

(CHAD),Y 

0359-C923 

0490 

CMP 

#'# 

035B-D0F5 

0500 

0510; 

BNE 

NLABEL ;NO PREFIX, EXIT 


0520; DECIDE 
053 0; 

ON WHAT ACTION TO TAKE 

035D-BA 

0540CHKLAB 

TSX 


035E-BD0101 

0550 

0560; 

LDA 

$101,X ;GET STACK VALUE 


- BASIC LABEL SUPPORT INTERFACE - 


SYS826 ACTIVATES THE BASIC LABEL 
SUPPORT INTERFACE AND ALLOWS THE 
USE OF LABELS IN BASIC FOR 'GOTO' 
'THEN' AND 'GOSUB' STATEMENTS. 

A LABEL IS PREFIXED WITH A 
# CHARACTER AND TERMINATES 
WITH A BLANK, COMMA OR COLON. 

BY J.HOOGSTRAAT 

BOX 20, SITE 7, SS 1 
CALGARY, T2M-4N3 
ALBERTA. 403-239-0900 


HOOK UP THE BASIC LABEL INTERFACE 
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0361-C93E 

0570 

CMP 

#S .THEN 

;BASIC THEN ? 

0363-F018 

0580 

0590; 

BEQ 

FLABEL 

;YES, FIND LABEL. 

0365-C9AC 

0600 

CMP 

#S.GOTO 

;BASIC GOTO ? 

0367-F014 

0610 

0620; 

BEQ 

FLABEL 

;YES, FIND LABEL. 

0369-C98F 

0630 

CMP 

#S.GSUB 

;BASIC GOSUB ? 

036B-F010 

0640 

0650; 

BEQ 

FLABEL 

;YES, FIND LABEL. 

036D-C969 

0660 

CMP 

#S.ONDO 

;BASIC ON.DO ? 

036F-D06B 

0670 

BNE 

SKPLAB 

;NO, IT'S A LABEL. 


06 80; 

0690; ON.DO 
07 00; 

ACTION 



0371-207000 

0710SCOMMA 

JSR 

GETCHR 

;FOR ON.DO 

037 4-C92C 

0720 

CMP 

#' , 

;STATEMENT GET PAST 

0376-D0F9 

0730 

BNE 

SCOMMA 

;THE COMMA. 

0378-68 

0740 

PLA 



0379-68 

0750 

PLA 



037A-4C5FC8 

0760 

JMP 

ON.RET 

;RETURN TO ON.DO 

STUFF. 

0770; 





07 80; GOTO, 

THEN OR GOSUB ACTION 


07 90 ; 




037D-C8 

0 80 OFLABEL 

INY 



037 E-A62 8 

0810 

LDX 

*BSTR 

;COPY START ADDRESS 

03 80-A529 

0820 

LDA 

*BSTR+1 

;OF BASIC. 

03 82-D008 

0830 

0840; 

BNE 

CKSTAT 

;GO CHECK FIRST STAT. 

03 84-A000 

0 85 0NXSTAT 

LDY 

#0 

;SET ADDRESS OF NEXT 

03 86-B15C 

0860 

LDA 

(CLAD),Y 

;BASIC 

STATEMENT. 

0388-AA 

0870 

TAX 



0389-C8 

0880 

INY 



03 8A-B15C 

0890 

0900; 

LDA 

(CLAD),Y 


03 8C-865C 

091OCKSTAT 

STX 

*CLAD 

;SETUP CURRENT 

03 8E-855D 

0920 

STA 

*CLAD+1 

;BASIC LINE ADDRESS. 

03 90-855B 

0930 

0940; 

STA 

*TMP2+1 


03 92-B15C 

9 

0950 

LDA 

(CLAD),Y 

;END OF BASIC 

03 94-D003 

0960 

0970; 

BNE 

CKSTAT1 

;NO, CONTINUE. 

03 96-4CEBC7 

0980 

0990; 

JMP 

UNDEFD 

;UNDEF'D STATEMENT. 

0399-18 

100OCKSTAT1 

CLC 

;GET PAST NEXT BASIC 

03 9A-A55C 
BASIC 

1010 

LDA 

*CLAD 

;LINE ADDRESS AND 

039C-6904 

1020 

1030; 

ADC 

#4 

;STATEMENT NUMBER. 

03 9E-855A 

1040 

STA 

*TMP2 

;SAVE THE ADDRESS. 

03A0-9002 

1050 

BCC 

=+3 


03A2-E65B 

1060 

107 0; 

INC 

*TMP2+1 


03A4-88 

1080 

DEY 
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1090; 



1100; SEARCH 
1110; 

BASIC 

FOR MATCHING LABEL 

03A5-B15A 

1120MATCH 

LDA 

(TMP2),Y ;CHECK IF THE 

O3A7-2OE203 

1130 

JSR 

CORRECT ;LABEL MATCHES THE 

03AA-8559 

1140 

STA 

*TMP1 ;SPECIFIED LABEL. 

03AC-B177 

1150 

LDA 

(CHAD),Y 

03AE-C8 

1160 

INY 


03AF-20E203 

1170 

JSR 

CORRECT 

03B2-C559 

1180 

CMP 

*TMP1 

03B4-D0CE 

1190 

1200; 

BNE 

NXSTAT ;NO MATCH FOUND. 

03B6-C900 

1210 

CMP 

#0 ;END OF LABEL ? 

O3B8-D0EB 

MATCHING. 

1220 

123 0; 

BNE 

MATCH ;NO, CONTINUE 

03BA-6 8 

1240 

PLA 


03BB-68 

1250 

1260; 

PLA 


03BC-BA 

1270 

TSX 


03BD-BDFF00 

FOUND. 

1280 

LDA 

$FF,X ;MATCHING LABEL 

03C0-C98F 

1290 

CMP 

#S.GSUB ;GOSUB ACTION ? 

03C2-D015 

1300 

1310; 

BNE 

NOSUB ;NO, THEN OR GOTO. 


1320; STACK 
1330; 

CORRECTION FOR GOSUB 

03C4-A57 8 

1340 

LDA 

*CHAD+1 

03C6-48 

1350 

PHA 


03C7-A577 

1360 

LDA 

*CHAD 

03C9-48 

1370 

PHA 


03CA-A537 

1380 

LDA 

*CLIN+1 

03CC-48 

1390 

PHA 


03CD-A536 

1400 

LDA 

*CLIN 

03CF-48 

1410 

PHA 


03D0-A98D 

1420 

LDA 

#$8D 

03D2-48 

1430 

PHA 


03D3-A9C6 

1440 

LDA 

#H f SUBRET 

03D5-48 

1450 

PHA 


03D6-A9C3 

1460 

LDA 

#L,SUBRET 

03D8-48 

1470 

14 80; 

PHA 


03D9-20CDC7 

1490NOSUB 

1500; 

JSR 

SETLAD ;SET LINE ADD. 

03DC-2000C8 

1510SKPLAB 

1520; 

JSR 

SKPSTT ;SKIP STATEMENT. 

03DF-4C7600 

153 ONOPREFIX 
1540; 

JMP 

GOTCHR ;BACK TO BASIC. 


1550; LABEL 
1560; 

CHARACTER CORRECTIONS 

03E2-C920 

1570CORRECT 

CMP 

#' 

03E4-F008 

1580 

BEQ 

CORRECT1 

03E6-C93A 

1590 

CMP 

#' s 

03E8-F004 

1600 

BEQ 

CORRECT1 

03EA-C92C 

1610 

CMP 


03EC-D002 

1620 

BNE 

CORRECT2 
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03EE-A900 1630CORRECT1 LDA #0 

03F0-60 16 40CORRECT2 RTS 

1641; 

1642; SYSTEM ADDRESS EQUATIONS 
1650; 


1660CLIN 

. DI 

1670BSTR 

. DI 

16 80CHAD 

.DI 

16 90CLAD 

.DI 

1700; 


1710GETCHR 

• DI 

17 20GOTCHR 

.DI 

17 30; 


17 40 S.THEN 

.DI 

17 5OS.GOTO 

.DI 

17 60S.GSUB 

.DI 

1770S.ONDO 

.DI 

17 80; 


17 90UNDEFD 

.DI 

1800SETLAD 

.DI 

1810SKPSTT 

.DI 

1820; 


1830ON.RET 

• DI 

1840SUBRET 

.DI 

1850; 


1860TMP1 

.DI 

1870TMP2 

.DI 

1880 

.EN 


HOOKUP 

- 

03 3 A 

LABELS 

= 

NLABEL 

— 

0352 

LABELI 

= 

CHKLAB 


035D 

SCOMMA 

= 

FLABEL 

- 

037D 

NX ST AT 

= 

CKSTAT 

= 

038C 

CKSTAT1 

= 

MATCH 

= 

03A5 

NOSUB 

= 

SKPLAB 

= 

03DC 

NOPREFIX 

= 

CORRECT 

= 

03 E2 

CORRECT1 

= 

CORRECT2 

= 

03 F0 

CLIN 

= 

BSTR 

= 

0028 

CHAD 

= 

CLAD 

= 

005C 

GETCHR 

= 

GOTCHR 

= 

0076 

S.THEN 

= 

S.GOTO 

= 

00 AC 

S.GSUB 

= 

S.ONDO 

= 

0069 

UNDEFD 

= 

SETLAD 

= 

C7CD 

SKPSTT 

= 

ON.RET 

= 

C85F 

SUBRET 

= 

TMP1 

= 

0059 

TMP2 

= 


$36 

;BASIC CURR LINE NO 

$28 

;BASIC START ADD 

$77 

;BASIC CURR CHAR ADD 

$5C 

;BASIC CURR LINE ADD 

$70 

;GET NEXT CHAR ROUT 

$76 

;GET CURR CHAR ROUT 

$3E 

;STACK KEY 'THEN' 

$AC 

;STACK KEY 'GOTO' 

$8F 

;STACK KEY 'GOSUB' 

$69 

;STACK KEY 'ON.DO' 

$C7 EB 

;UNDEF'D STAT ERR 

$C7CD 

;SET NEW LINE ADD 

$C80 0 

;SKIP REST OF STAT 

$C85F 

;ON.DO RETURN ADD 

$C6C3 

;GOSUB RETURN ADD 

$59 

;WORK SPACE 

$5A 

;WORK SPACE 


0347 
0355 
0371 
0384 
0399 
03D9 
03DF 
03 EE 
0036 
0077 
0070 
003E 
008F 
C7EB 
C800 
C6C3 
005A 
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BASIC 4.0. DOS 2.0 and The Relative Record System 


Commodore is now distributing computers and disks with 
new operating systems. These are, of course, BASIC 4.0 and 
DOS 2.0. But many users that have BASIC 2.0 and DOS 1.0 are 
asking themselves, "Should I upgrade ?". 

The new operating systems offer many advantages over the 
old, but there are cases where upgrading may hurt more than 
help. This would refer to those who 1) have a working system 
performing without mishap, and 2) don't do any programming of 
their own. More specifically, this would be businesses that 
have aquired equipment and a custom program(s) to perform 
special tasks. There are suttle differences in the new 
systems that may cause discrepencies once upgraded. However, 
this does not rule out the possibility of upgrading. Higher 
capacity may be necessary to maintain your systems 
efficiency. This would mean a "forced" upgrade to the 8050 
disk, which contains the new DOS, and program modification 
may be required. 

Serious programmers, on the other hand, should consider 
upgrading as seriously as their programs. Some new features 
are: 


BASIC 4.0 


1. Garbage collection time has been reduced to negligible. 

2. Shifted RUN/STOP loads and runs first disk file. 

3. Disk error channel read automatically into DS and DS$, 
same as TI and TI$ read the clock. These new variables 
are one reason programs may require mods. See article 
this issue on converting. 

4. PRINT# command omits line feed after carriage return on 
files OPENed with a logical file number less than 128; 
128 or greater still sends CRLF. 


5. Disk commands now included in the BASIC. Although BASIC 
2.0 could handle the disk, PRINTfing to the command 
channel was somewhat clumsy. 

BASIC 2.0 BASIC 4.0 


LOAD"prog",8 
SAVE"1:prog",8 
VERIFY"1:prog" , 8 
OPEN 2,8,6,"l:file,s,w" 


CLOSE 2 

LOAD"$1",8:L1ST 
PRINT#15,"N1: title, xx" 

'' "SI:prog" 

ii "VI" 

'' "D1=0" 

'' "R1:f ile=l :prog" 

' 1 "Cl:prog=0:prog" 


DLOAD"prog" 

DSAVE"prog",dl 
VERIFY"1:prog",8 
DOPEN#2,"file",u8,dl,w 


DCLOSEI2,dl ON u8 

DIRECTORY dl or CATALOG dl 
HEADER"titie",dl,ixx 


defaults to dO 
no change 
defaults unit 8, 
omit w for read 
no change for USR files 
omit "#2" and "dl" and 
close all files ON u8 


SCRATCH"prog",dl 

COLLECT dl 

BACKUP dO TO dl 

RENAME "prog",dl TO "file",dl 

COPY "prog",dO TO "prog",dl 
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Direct access disk commands do not change in BASIC 4.0 (i.e. 

format is still PRINT#15,"ul", b-a, b-p, etc.) but do change 
in DOS 2.0. (see DOS 2.0 below). Also note that the 
INITIALIZE command does not get keyword priveledges in BASIC 
4.0. BASIC 4.0 was designed to work best with DOS 2.0 which 
does automatic initializes. BASIC 4.0 also has other 
commands that work only with DOS 2.0: 

APPEND#2, "file",dl 

CONCAT "more data" r d0 TO "existing data",dl 
RECORD#2, 3000, 5 

The APPEND# command OPENS an existing file for writing. 
DOS 2 positions to the end of that file such that data can be 
"appended". 

The CONCAT command concatenates one file "TO" another 
existing file (SEQ type files only). Concatenating was 
possible with the DOS 1.0 'Copy command, but an extra 
sequence of scratch and rename commands would be necessary to 
accomplish the above: 

DOS2 CONCAT "more data",d0 TO "existing data",dl 
DOS1 PRINT#15,"Cl:temporary=l:existing data,0:more data" 
PRINT#15,"SI:existing data" 

PRINT#15,"R1:existing data=l:temporary" 

PRINT#15,"SO:temporary" 

Thanks to DOS 2.0, a single BASIC 4.0 command does it all! 
But remember, DOS 2.0 does the work; BASIC 4 only sends the 
command string to the disk command channel. 

RECORD# works the DOS 2 Relative Record System. This 
feature of the new DOS makes it virtually indispensable! 

Although the above three commands belong to BASIC 4.0, 
they can be simulated with BASIC 2.0, however, DOS 2.0 must 
be in the disk for them to work. (See article on DOS 2.0 
commands from BASIC 4.0) 

DOS 2.0 

1. Automatic initializing. 

2. "@" SAVE with replace fixed. 

3. Formatting and Duplicating approximately 5 times faster. 

4. Directory track and 6 other tracks have 1 less sector for 
144 directory entries max and 664 blocks free max. It 
was felt that the recording density for DOS 1.0 diskette 
middle tracks was too high for reliability. DOS 1.0 
diskettes will require converting to work on DOS 2.0 (see 
COPY command below). Although both diskette types can be 
read on either DOS, writing DOS 2 diskettes with DOS 1 is 
fatal. DOS 2 doesn't allow writing to DOS 1 disks. 
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5. RENAME command fixed. 

6. COPY command now allows default characters. (e.g. COPY 
"fi*",dO to "*",dl would copy all files starting with 
"fi" on dO to the same name on dl. Also COPY dO TO dl 
copies all files over... good for converting DOS 1.0 
diskettes to DOS 2.0 diskettes) 

7. "B-W" direct access commands removed; use "U2" instead. 
All others remain the same. 

8. Sector byte zero now accessible from B-P command. 

9. Error channel cleared on receiving correct command 
syntax. DOS 1 left the error light on until completion 
of a successful command (excluding LOAD"$0",8 ). 


The Relative Record File System _ 

Built in to the new DOS 2.0 is a filing system known as 
The Relative Record System. It's called Relative Record 
because each record is relative to another. 

When a relative file (type REL on directory) is created, 
each record will have the same byte length. The length of 
the records are chosen by the user and can be any length 
between 1 and 254. No bytes are wasted which means, in most 
cases, records will span sector boundaries. 

Essentially, a REL file is like an SEQ file with entry 
points. These entry points are stored in "side sectors" 
which take up space on the disk, but are transparent to the 
user. Each side sector can handle up to 30K with a maximum 
of 6 side sectors. This limits REL files to 180K, but since 
2040 diskettes are 170K, a REL file could use up the whole 
disk. The 180K limit also applies to the 8050. 

The speed of the system is incredible; maximum 3 block 
reads to access any record, regardless of file size. 

A maximum of three REL files can be open on the disk 
simultaneously provided no other files are open. 

The command set associated with REL files is: 

DOPEN# 

RECORD# 

INPUT# 

GET# 

DCLOSE# 

REL files can be COPYd, SCRATCHed, RENAMEd, etc., just 
like any other file. Treat them no differently than any 
other file, but with the same amount of respect. REL files 
must be DOPENd and DCLOSEd properly, using ST and DS/DS$ for 
file status interrogation. 
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Example Set-Up 


First you must decide how many bytes maximum your 
information will need. This will be the number of bytes 
maximum per field plus one byte for a carriage return at the 
end of each field. You could save on bytes by not using 

carriage returns but then you must know how to split up the 
record into fields using MID$ upon retrieval. Once again, no 
more than 80 characters without a carriage return. 

Once you've chosen a length or Record Size, put it in a 
variable, say RS. Choose a logical file number, a filename 
and a drive and: 

DOPEN#6, "FILENAME",DO,L(RS) 

You can write or read a REL file once opened. When 

DOPENing for the first time, the record size (RS) must be 

specified. After that the length need not be given. If it 

is, it must be the same as before else a disk error will 

occur and the disk will abort the open attempt. 

On creating the file, the disk procedes to build records 

in disk RAM. These will be empty until you fill them with 

data. An empty record starts with CHR$(255) followed by RS-1 
CHR$(0)'s. (see note 1 below) 

You are now ready to store data. The DOPEN 
automatically positions to record number 1. After a PRINT#, 
the DOS will position to record 2. This means that placing 
multiple strings into a single record must be done using one 
PRINT# statement, else the strings will go into successive 
record numbers. Assuming R$=CHR$(13)... 

DO 100 PRINT#6,"HELLO"R$;A$;R$;B$;R$;X%;R$; 

DON'T! 100 PRINT#6,"HELLO"R$; 

110 PRINT#6,A$;R$; 

120 PRINT#6,B$;R$; 

130 PRINT#6,X%;R$; 

This would put "HELLO" in record #1, A$ in record 2, B$ in 
record 3 and X% in record #4. 

This could be a drawback, especially if your variables 
are in an array and you wish to use a loop to output all to 
the same record #. This brings us to the RECORD# command. 

RECORD#LF,(RR),(PN) 

RECORD# tells the file (LF) to position to record number 
RR at byte position PN within the record. The variable PN 
can be from 1 to 254. Variables in the RECORD# command must 
be enclosed in brackets. Output using a loop might look 
like: 
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;NF=number of fields 


100 PN=1 

110 FOR J=1 TO NF 
120 RECORD#6,(RR),(PN) 

130 PRINT#6, FL$(J);R$; 

140 PN=PN+LEN(FL$(J))+1 ;+1 for carriage rtn 
150 NEXT 

The ";R$;" in line 130 could be left off since this would be 
handled by BASIC. 

Another method would be to concatenate the fields into 
one string and output: 

100 FL$="" 

110 FOR J=1 TO NF 
110 FL$ = FL$+FL$(J)+R$ 

120 NEXT 

130 PRINT#6,FL$ 

Remember... strings in memory can be length 255 max. Max REL 
record length is 254. If you print a string to a REL record 
that is longer than the record length, an OVERFLOW IN RECORD 
error will occur in the error channel. BUT, the first RS 
characters of the string will make it into the record; the 
rest will be lost. Should this happen, there probably won't 
be a carriage return at the end of the record. That doesn't 
matter. You will still be able to retrieve this data. As a 
matter of fact, carriage returns are not necessary at the end 
of a record, even if the data doesn't fill the record! "But 
why?", you ask.... 

REL Record Retrieval _ 

As mentioned earlier, an empty record starts with 
CHR$ (255) followed by RS-1 CHR$(0)'s. This is done by the 
DOS. 


Let's say our record size is 50. If we take the 
characters H, E, L, L, and O, and send them into REL REC #1 
starting at position 1 without a carriage return, 
(i.e. PRINT#6, "HELLO"; ) the DOS would do as it's told and 
put "HELLO" into REL REC #1 with no carriage return. Not too 
surprising, eh. However, once that's done, the DOS procedes 
to "pad" the remainder of the record with CHR$(0)'s; in this 
case 45 of 'em. The DOS is now positioned at REL REC #2. 

Now let's say we position back to REL REC #1 with a 
RECORD# 6,1 command. 

The INPUT# command stops on carriage return or EOI. ST 
is set to 64 on EOI, otherwise ST = 0. (see note 2 for 
details) 

If we now execute an INPUT#, the DOS sends the H, E, L, 
L, and 0. But when the DOS sees the CHR$(0) it also sends 
EOI which is just as good as a carriage return. ST is set to 
64 and the DOS positions automatically to the next 
record; REL REC #2. 
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The DOS would also send EOI if the character being sent 
was from the last position in the record. In this case the 
record is not full, but this means that the character in the 
last position doesn't have to be a CHR$(13). You can save 1 
byte per record this way. For 2500 records that's almost 10 
full blocks! 

Back to our example, INPUT# terminated when the DOS saw 
CHR$(0) and sent EOI. This has further ramifications. 
Suppose you were to execute something like: 

100 RECORD#6, 1, 1 

110 PRINT#6,"HELLO"; ;or "HELLO";R$; 

120 RECORD#6, 1, 20 
130 PRINT#6,"JIM"; 

there would be CHR$(0)'s left in between "HELLO" and "JIM". 
"JIM" would be lost forever to INPUT#, unless you position 
back to it using RECORD# before INPUT#ing. Otherwise, only 
GET# could get it back. The DOS does not send EOI with 
CHR$(0) when using GET#. 

Therefore, if you're anticipating blanks between data, 
or blank fields representing no data, it's best to construct 
the record in RAM first using spaces as field padding. 
Remember though, leading spaces will PRINT# to the disk, but 
INPUT# (as with INPUT) ignores them. Leading spaces include 
spaces at the beginning of a record and spaces immediately 
following a carriage return within a record. 

Printover_ 


Recall that the PRINT# command sends the characters into 
the record and then pads to the end of the record with 
CHR$(0)'s. This can be hazardous, especially if valid data 
exists beyond the data being sent into the record. This data 
would be wiped out with zeros. One more reason why you 
should construct the record in RAM first. You could get 
around this by putting the new data into the disk buffer with 
a "Memory-Write" routine, but that's fairly advanced and we 
won't cover that here. 

End Of File Detection 

The following routine could be used to read the entire 
contents of a REL file: 

10 DOPEN#8,"FILE NAME" 

20 INPUT# 8,A$ 

30 PRINT A$ 

40 IF DS=50 THEN DCLOSE#8 : END 
50 GOTO 20 

On DOPENing, the file positions to record 1 and automatically 
positions to successive records after INPUT#ing each records' 
valid data. This would continue until reaching a record that 
hasn't yet been formatted . DS/DS$ would read 50, RECORD NOT 
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PRESENT. But the last record used isn't necessarily the last 
record formatted. (see note 1.) Storing the number of the 
last record used would take care of that. Give it a SEQ file 
of it's own and update it every time it changes using 
write with replace. 

Empty files start with CHR$(255). This gets done by the 
DOS initially, but if a record DELETE is done, this "empty" 
flag should be replaced (i.e. PRINT#lf,CHR$(255)). This 
available file space can then be detected for future use. 

One Minor Gotcha_ 


When a REL file is DOPENed for the first time, only one 
sector is allocated for data. If the file is aborted (i.e. 
no DCLOSE, DIRECTORY display, reset, etc.) before the DOS 
allocates a second data sector, the side sector information 
doesn't get written to the disk. That second data sector 
allocation forces the side sector onto the disk, but DCLOSing 
properly will always prevent this. 

To be absolutely sure, although probably unecessary, the 
following routine could be used: 

50000 DOPEN#lf,"FILE NAME",D0,L(RS) 

50010 RECORD#lf,(INT(254/RS)+1) 

50020 PRINT#lf,CHR$(255); 

50030 DCLOSE#lf 
50040 RETURN 

The fix actually defeats its own purpose as the file is 
properly DCLOSEd in line 50030! 

This would only have to be done once and your file is 
ready for I/O. Once againg, the record size (RS) need only 
be given in the very first DOPEN. 


NOTE 1 _ 

When a REL file is created, the DOS goes looking for 

some RAM to use inside the disk unit; a 256 byte buffer. The 
first two bytes are used to store the track and sector 
numbers of the next sector in the REL file just like SEQ 
files. The remaining 254 bytes are for record space, hence 
the 254 byte maximum record size. 

At this point the DOS fills the record space with 

CHR$(0)'s and puts a CHR$(255) "marker" in the first byte of 
each record. This byte would be a multiple of the record 

size. If the record size were 50, there would be CHR$(255) 
at bytes 2 , 52 , 102 , 152 , 202, and 252 (offset by 2 due to 

track & sector bytes at 0 and 1). 

If REL REC #1 were currently being written to or read 

from, you could procede to read or write REL RECs 2, 3, 4, 

and 5 without any mechanical disk activity. Requesting 
record #6 (i.e. RECORD#lf,6,1) would return an error #50, 
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RECORD NOT PRESENT because disk space for a 6th record hasn't 
yet been formatted. But 5 records don't fill the buffer 
completely; there are still 4 bytes left (252-255). These 
belong to record #6. The next PRINT# would start putting 
characters into these 4 bytes, at which point the DOS would 
find another available scetor, stick it's co-ordinates into 
bytes 0 and 1, and write the buffer contents onto the 
diskette. Now the buffer is re-formatted with the first 4jL 
bytes of the record space belonging to record #6. A DCLOSE 
would write the rest of the data to disk. Requesting record 
#3000 would force the DOS to format all records inbetween 
before allowing access to the record. 

NOTE 2 _ 

1. INPUT# continues to input characters from the disk 
until it sees a carriage return (, comma or a colon but we'll 
ignore these here). The next line of your program should be 
a check of ST. If there is more data, ST will be 0; if not, 
ST will be 64. (see ST table, center page) 

2. INPUT# also terminates on receiving EOI (End Or 
Identify). EOI has a line of it's own on the IEEE bus. 
INPUT# checks this line. If it turns on, then no matter what 
character INPUT# has just received, inputting stops and ST is 
set to 64. 


That all sounds like a lot but it really isn't. The 
Relative Record System is really quite easy to work. Being 
new, it'll take some getting used to. Once you're storing 
data in REL RECS, you'll hate to think how you did it any 
other way! 
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BASIC 2.0 to BASIC 4.0 Conversions (40 column) _ 

Paul Higginbottom, 
Commodore U.K. Software Department 

The best way I found to convert programs, was to divide 
all of the programs into four catagories. These are as 
follows: 

1. Programs written entirely in BASIC, with no PEEK, 
POKE, USR, WAIT or SYS statements. 

2. Programs written entirely in BASIC, with PEEK, POKE, 
USR, WAIT and/or SYS statements. 

3. Programs written partly in BASIC and in machine code, 
with PEEK, POKE, USR, WAIT or SYS statements. 

4. Programs written entirely in machine code. 

First, I would like to discuss the utilities I use when 
converting programs. I use BASIC AID for the BASIC 
conversion. This has FIND, CHANGE (something the TOOLKIT 
lacks), NUMBER (renumber), KILL (to exit), DELETE, and BREAK 
(drops you into the monitor). This is a BUTTERFIELD 
abbreviation of our own BASIC AID (MP096 , now on sale for 

10 pounds! and has 16 commands - I think), but for 

BASIC 4.0. Also I use SUPERMON4.REL (by 

BUTTERFIELD/WOZNIAK/SEILER/QUITEAFEWOTHERS) which is an 
add-on to the monitor commands for 4.0, allowing you to hunt 
for code or text, disassemble, assemble, list memory in ASCII 

as well as hex, step through programs with trace or step, 

etc. I use a disk unit for conversion, but I should think a 
tape user could do the same sort of thing, only slower. The 
memory maps mentioned below have been published and are 
avaialable in any one of a number of current publications. 

Now I will go through each catagory, one at a time. 

1. This catagory shouldn't need any conversion. 

2. Let's take the POKE statements first. Apart from 
those used to alter the screen RAM (which stay the same) , 
usually the corresponding locations from machine to machine 
can be found by looking at Jim Butterfield's memory maps, 
which are public domain documents. The only other problems 
that seem to arise, are when a location has been POKEd with a 
certain value to make the PET function in a different way. A 
good example of this is the well known one that will disable 
the RUN/STOP key. If you understand why it works, then 
conversion to BASIC 4.0 is easy. All that is necessary, is 
to add three to the current contents of 144. On a 2.0 PET, 
POKE144,49 will disable the stop key. This is three more 
than its normal contents (46). Therefore POKE144,PEEK(144)+3 
would work on either machine. Just to save you the bother, 
it is in fact POKE144,88 (to disable), and POKE144,85 (to 
enable), on BASIC 4.0 machines. 
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If the program is entirely BASIC, then the USR and SYS 
commands will not be used (unless routines from the ROMs are 
being used). If ROM routines are being used, again memory 
maps are necessary. 

The WAIT command is generally only used for keyboard 
activity: WAIT152,1 (wait for shift key), and WAIT158,1 (wait 
until bit 0 of the number of keypresses in the buffer is a 1; 
i.e wait until an odd number of keypresses > 0). The two just 
mentioned would be the same on 2.0 and 4.0. 

The USR command would only be used if machine code was 
also used, but that is not covered in this catagory. 

3. All hints made in catagory 2 should be observed for 
this catagory as well. The USR command uses bytes 1 and 2 as 
an indirect address to a machine code routine. The parameter 
in the USR command is 'floated' and put into the first 
accumulator. The address POKEd into the bytes 1 and 2 will 
obviously not need to be changed, but the actual machine code 
routines, will more than likely need to be changed. The 
routines most commonly used by USR routines are FLPINT 
(floating point to integer conversion for accumulator #1, and 
of course INTFLP (the other way roundl). The corresponding 
locations can again be found in the Butterfield memory maps. 
Use FIND/POKE1/ to find the USR command set-up statements, 
and work out the hex address. Use SUPERMON to disassemble 
the USR code, and make any changes on the screen (JMP's into 
ROM usually). You should also know where your program starts 
in memory. To find this out off of a disk unit on a BASIC 
4.0 machine, the following program will do: 

10 INPUT-FILENAME";F$:INPUT"DRIVE";DR 
20 DOPEN#l,(F$),D(DR):IF DS THEN PRINTDS?:GOTO60 
30 GET#1,A$,B$:N$=CHR$(0) 

40 AD=ASC(A$+N$)+ASC(B$+N$)*256 
50 PRINT"PROGRAM STARTS AT"AD 
60 DCLOSE#l 

You may want to add a little hex converter into the 
program. 

To resave programs that do not start at $0401/1025, you 
would need to drop into the monitor (SYS4 for example). Then 
you would need to see where your program ends by typing in 
.M 002A 002A <RETURN>. The contents of 002A,002B are the end 
of your program (LOW, HIGH) . Let us say for example that 
.: 002A 40 IB 40 IB 40 IB 00 00 appears. To save your 
program onto drive 0 on disk, you would need to type:- 

.S "0:FILENAME",08,033A,1B41 

j i 

Start address 1 More than necessary, 

($033A for example) because the monitor 

doesn't save the last byte! 
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4. Programs written entirely in machine code usually 
fall into three catagories. 

(i) Those that use ROM entry points, and system 

variables all over the place. 

(ii) Those that only use system variables (keyboard 

usually) . 

(iii) Those that manage everything by themselves. 

As before, I will handle each case separately. 

(i) Tiresome, because usually the whole program will 

have to be disassembled onto paper, and the listing gone 
through with a pen, whilst clutching memory maps! 

(ii) Shouldn't be too much trouble, since most system 

variables are the same. 

NOTE: $97 (151) = Keyboard Matrix coordinate on graphics 

keyboards, 

= Unshifted ASCII on business keyboards. 

(iii) Will almost certainly work. Only keyboard type may 
cause problems. 


Editor's Note: 

SUPERM0N4.REL and AID4 are available from all Canadian 
Commodore dealers as part of the Commodore Assembler 
Developement Pak. 

Most programs will probably fall into category 1 and 
won't need too much conversion at all. If a program run 
turns suddenly quite, check for the obvious first (i.e. STOP 
key disable and don't forget that nasty screen POKE). 

Also remember that BASIC 4.0 has reserved two more 
variables besides TI, TI$ and ST. These are DS and US $; the 
Disk Status. Any of these on the left of an " = " sign will 
cause 7SYNTAX ERROR, however, they are allowed on the right. 
If your date or something appears as "00, ok, 00, 00" or if a 
variable starts acting weird then you've probably missed one. 

Programs using PRINT# should also take note. The PRINT# 
command no longer outputs a LINE FEED after the carriage 
return unless the logical file # is 128 or greater. This 
won't need too much attention since most programmers inhibit 
line feeds in their PRINT# statements by following with 
CHR$(13); . However, if for some reason the program depends 
on that line feed, simply change the file numbers to 128 or 
greater. 

One last point to bear in mind (although chances of this 
one surfacing are slim to nil) is the fact that strings 
stored in RAM now require two more bytes of overhead. This 
gets you the faster garbage collection. However, if your 2.0 
system packs PET's RAM to capacity with a lot of good strings 
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(i.e. large string arrays with considerable length strings) 
then on 4.0 these two extra bytes per string can add up and 
possibly cause ?OUT OF MEMORY ERROR. Once again, highly 
doubtlful. 

Although converting programs can be a pain, the 
advantages of BASIC 4.0 make it all worth it. 
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DOS 2.0 Commands from BASIC 2.0 _ 

I really shouldn't be telling you this because Commodore 
does not reccommend this combination of equipment. However, 
there are still owners of the original 8k PETs that have 
upgraded to BASIC 2.0 to work disk, but can't upgrade to 
BASIC 4.0 because there simply aren't enough sockets on the 
board. BASIC 4.0 requires one ROM installed in the $B000 
socket which does not exist on original machine boards. 

If you have a PET/CBM that came with BASIC 2.0 (three 
empty sockets), I strongly reccommend that you upgrade to 
BASIC 4. If you bought the machine after July 1st, 1980 , 
then the upgrade is free, so why not! The advantages of 
BASIC 4.0 are listed in another article in this issue. 

For those of you who don't upgrade your BASIC but do 
upgrade your DOS, you'll have to use the PRINT#15," command 
to access some of the new DOS 2.0 features. Of course all of 
the old DOS 1.0 commands remain the same except for "B-W"; 
use "U2" instead. 

APPEND# 

This BASIC 4 command OPENS a SEQ file for appending: 

BASIC4: APPEND#6, "FILENAME" ;defaults to D0,U8 

BASIC2: OPEN 6,8,4,"0:FILENAME,A" ;,A for append 

CPNCAT 


This one's quite simply a variation of the DOSl.O Copy 
command. However, if sent to DOSl.O, a dos syntax error 
would be placed in the error channel. 


BASIC4: CONCAT "FILE 2",D1 TO "FILE 1",D0 

BASIC2: PRINT#15,"CO:FILE 1=0:FILE 1,1:FILE 2" 


RECORD# 

Two commands are affected here. First you need to DOPEN 
a relative file, specifying the length of each relative 
record; 50 in the following example: 

BASIC4: DOPEN#6,"REL FILE NAME",L50 

BASIC2: OPEN 6,8,SA, "0:REL FILE NAME,L"+CHR$(50) 

(See BASIC 4.0 and DOS 2.0 for more on The Relative Record 
system, this issue). 

The RECORD# command uses the logical file number, but 
the BASIC 2.0 artificial RECORD# command uses the secondary 
address (SA) that you chose in the OPEN command. In BASIC 
4.0 the DOPEN command choses an SA for you. 

BASIC4: RECORD#6, (RR), 2 ;RR is rel rec # 

BASIC2: HI = INT(RR/256) : LO = RR-HI*256 

PRINT#15,"P"CHR$(SA+96)CHR$(LO)CHR$(HI)CHR $ ( 2 ) 

The "P" stands for Position. The command tells the DOS to 
position to relative record number RR. The "2" tells the DOS 

to position to the second character of the record before 

reading or writing. 96 is added to SA because that's how 
RECORD# does it. 




This program demonstrates how to use the artificial 
relative record commands. BASIC 4.0 users should be able to 
replace them with the high level syntax. 


1000 OPEN1,8,15:REM OPEN I/O CHAN 
1100 INPUT"[CS]FILENAME ";F$ 

1110 CLOSE2:OPEN2 f 8,2,F$:REM OPEN IT 
1120 GOSUB9000:REM ANY ERROR ? 

1130 IFEN=0THEN1200:REM NO - GO ON 
1140 IFEN062THENGOSUB9100 :END 
1150 INPUT"RECORD SIZE ";RS 
1160 F$=F$+",L"+CHR$(RS):GOTO1110 
1200 INPUT"READ,WRITE,END ";A$ 

1220 A$=MID$(A$,1,1) 

1230 IFA$="R"THEN2000 
1240 IFA$="W"THEN3000 
1250 IFA$="E"THEN4000 
1260 PRINT"[CU]";:GOTO1200 
2000 : 

2005 : 

2010 :REM ** READ A RECORD ** 

2020 : 

2030 INPUT"RELATIVE RECORD NUMBER ";RR 
2040 INPUT"RECORD POSITION ";PN 
2050 GOSUB9200:REM POSITION DISK 
2060 GOSUB9000:REM CHECK THE DISK 
2070 IFENOOTHENGOSUB9100 :GOTO1200 
2080 INPUT#2,A$:PRINTA$:GOT01200 
3000 : 

3005 : 

3010 :REM ** WRITE A RECORD ** 

3020 : 

3030 INPUT"RELATIVE RECORD NUMBER ";RR 
3040 PN=1:INPUT"DATA";A$ 

3050 GOSUB9200:REM POSITION DISK 
3060 GOSUB9000:REM CHECK THE DISK 
3070 IFENOOTHENGOSUB9100 
3080 PRINT#2,A$:GOTO1200 
4000 CLOSE2:CLOSE1:END 

9000 : 

9001 : 

9002 :REM ** READ DISK MESSAGE ** 

9003 : 

9005 INPUT#1,EN$,EM$,ET$,ES$ 

9010 EN=VAL(EN $):RETURN 

9100 : 

9101 : 

9102 :REM ** PRINT DISK MESSAGE ** 

9103 : 

9105 PRINTEN$","EM$","ET$","ES$:RETURN 

9200 : 

9201 : 

9202 :REM ** DOES RECORD#2,(RR),(PN) 

9203 : 

9205 RH=INT(RR/256) :RL=RR-RH*256 

9210 C$="P"+CHR$(2+96) +CHR$(RL)+CHR$(RH) 

9220 C$=C$+CHR$(PN) 

9230 PRINTll,C$:RETURN 
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The PET NMI Vector 


Henry Troup, Diemaster Tool 


NMI is the Non Maskable Interrupt. An interrupt is a way 
of telling the processor that its attention is needed for 
something else - right now! The regular PET interrupts are 
generated every l/60th second, and are used to process the 
clock, keyboard, stop key and so on. These interrupts can be 
'shut off' by setting the interrupt mask. There is, however, 
another interrupt, NMI. NMI cannot be masked - that means that 
it is always active. 

On the old PET, the NMI line is held high (off) by the 
hardware. If you have an old PET, there's nothing you can do. 
The 6502 NMI vector is at $FFFA-$FFFB. This vector is in ROM. 
It points to a routine in ROM at $FCFE. This routine does a 
jump indirect through location $94-95 in zero page. On 
power-up, these locations are set to point at $C389, the BASIC 
warm start. 

So, what can we do with NMI ? Well, it can get us out of 
a few sticky situations with the disk. The NMI line is 
available on the expansion port. The port is two connectors of 
50 pins each. NMI is on the front connector, on the inside. 
Count forwards from the break between the two connectors. NMI 
is the second pin. RESET is the fourth pin. If you have a 
RESET button which uses an alligator clip to connect to the 
RESET line, just move it to this pin. Otherwise, get a mini or 
micro size clip and connect it to NMI. Now get another lead to 
ground (any of the outer pins on the connector), and connect a 
switch between the two. Are we ready ? 

Now, when you push the RESET button, you ground the NMI 
line, and the 6502 jumps to the BASIC warm-start. Try it - 
nothing spectacular, the machine just prints READY and the 
cursor. OK, now let's do something silly. Try WAIT32768,1,1: 
Normally, that's a crash. Push NMI - READY. Neat, isn't it. 

At this point, we can see that NMI can recover from some 
crashes - but for others (processor crashes, not infinite 
loops) we'll still need RESET. 

But now comes the interesting stuff. We can change the 
NMI vector at $94,95 to anything we want. If we point it at 
$FD17, we can use NMI to jump to the monitor at any time. 
Useful for machine language programs - and all you need is an 
RTI instruction to get back to where you were. (You could use 
it to try and examine BASIC while it runs, too.) 

But, that's pretty tame. OK, how about having two BASIC 
programs available alternately. Here's how it can be done. 
Set up the first BASIC program in the usual place. Set its 
end-of-memory pointer to IK short of half of your memory. That 
is, in a 32K machine, set eom to $3C00, in 8k, to $0C00. Then 
copy all of zero-page to the 256 bytes just after the eom 
pointer of this program, and the stack to the next 256. Now, 
set the start of BASIC to after this stuff. For 32k, that's 
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$3E00. Set the eom pointer to 512 bytes short of the real 
end-of-memory. That would be at $7E00. Now save all of 0-page 
into this space, and follow it with the stack. 

Now, we can write a routine (in the cassette buffer) to 
swap the two copies of 0-page and the stack around. You'll 
also have to juggle the top of the stack somewhat. When you 
push NMI, the PC and the stack pointer go on the stack. You'll 
need to push the X,Y, and accumulator, too. Then do the swap, 
and restore X, Y, A. Then an RTI should get things rolling. 
Point the NMI vector (and the copies of the NMI vector) to this 
routine. Once all of this is debugged, we can start one of the 
programs running. Then push NMI, and we swap to the other 
program. Push the button again, and back to the other program. 

I haven't done this, so I can't promise that I didn't miss 
something out. If anyone does implement it (and finds a use 
for it!), I'd like to hear. 

You can also use NMI to handle some outside device. Good 

luck! 


Editor's Note; 

Henry's concept is sound. It would require some careful 
thought, although not much programming to accomplish. An 
article on this would be a likely candidate for Best 
Apllication award of Volume 3. 
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Fun With WAIT Statements 


Henry Troup, Diemaster Tool 


Most of us find that the WAIT statement is of limited 
use. Until recently, the only use I had ever found was: 

WAIT 59411, 8, 8 

to wait for the cassette recorder play switch. But I did 

find some amusing and useful applications for WAIT. 

First, a quick review. 

The statement WAIT I, J, K causes the value of location 
I to be exclusive-OR' ed with K, and AND'ed with J. If the 
result is 0, the process repeats until a non-zero result is 
obtained. Most often, only tangible results are obtained 
when values of J and K are powers of 2 (1, 2, 4, 8, 16, etc.) 

since WAIT is a bit testing function. However testing for 

combinations of bits can also be useful. Be very careful 
though... during WAIT, the STOP is not tested. If a WAIT 

command is in entered, be certain a non-zero will occur or 
else! 


Obviously, most memory locations will be of very little 
interest with respect to WAIT. The only locations which are 
of interest, in fact, are those which are affected by 
external events. There are two sets of these: the keyboard/ 
cassette/ user port/ IEEE locations in E-page, and a few in 
zero page. It's the zero page locations I want to talk 
about. 

GET Loops 

The classic get loop is: 

1000 GET A$: IF A$ = "" GOTO 1000 

which loops until a non-null input is received. The same 
effect can be obtained by WAITing for the keyboard buffer 
pointer: 


1000 WAIT 158, 127: GET A$ 

This waits until the keyooard buffer count (decimal 158 for 
new ROM, 525 for old) is non-zero. It's a little harder to 
understand, but shorter and probably slightly faster. For 
experimentation, try replacing the GET command with INPUT and 
the 127 with 2, 4 and 8. 

WAITing for a kev 

Very often, a GET loop is used on a "Push Any Key To 
Continue" basis. One interesting alternative is to use: 

WAIT 152, 1 
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This waits for the shift key to be pushed (old ROM, 516) . 
The advantage is that nothing is put in the keyboard buffer, 
so that you need not clear the buffer. 

Or, if you want to have fun, try experimenting with 
WAITing for location 151 - key held down (515, old ROM). 
WAIT 151, 127, 255 will wait for any key. Specific keys are 
harder to WAIT for, since WAIT will only wait on one bit at a 
time. Remember that we're talking about un-decoded keyboard 
values here. 

WAITina for the Clock 

The real time clock occupies locations 141-143 in zero 
page. WAITing for one particular bit in the clock to change 
state will give an interesting delay effect. For example, 
WAIT 142, 1, 1 will wait for the rightmost bit of the second 
byte. This bit changes state every 256 jiffies, or 4 and a 
fraction seconds. WAIT 143, 1, 1 will wait till the start of 
the next jiffy. 

While some of these are not particularly useful, playing with 
the WAIT statement is quite a bit of fun. If anyone finds 
any more useful or interesting locations, I'll be WAITing to 
hear from you. 
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8032 Control Characters 


This table is a summary of the 8032 screen control 
functions. The ESC/RVS characters will display as 
lower/upper case or upper case/graphics, depending on which 
mode you're in. POKE59468,X (where X=12 for graphics, 14 for 
lower case) still changes modes without changing the gap 
between the lines. Notice that complimentary functions 
differ by 128 using CHR$(. See the Commodore BASIC 4.0 
manual for details on functions. 

Control Function _ CHR$(value) _ ESC/RVS char. 


BELL 

7 

g 

GRAPHICS 

142 

shift n 

TEXT 

14 

n 

SCROLL DOWN 

153 

shift y 

SCROLL UP 

25 

y 

SET BOTTOM 

143 

shift o 

SET TOP 

15 

o 

INSERT LINE 

149 

shift u 

DELETE LINE 

21 

u 

ERASE BEGIN 

150 

shift v 

ERASE END 

22 

V 

SET/CLR TAB 

137 

shift i 

TAB 

9 

i 


The above describes the special 80 column screen control 
functions. The functions can be activated two ways; by using 
CHR$( and the appropriate value or, preferably, by placing 
the appropriate character in reverse field within quotes. 
This is done by entering quote mode, hitting 'ESC', then 
'RVS' and the character. For example, to do a Scroll Down 
enter quote mode and type 'ESC', 'RVS', shift & ' Y' and 
RETURN. 'ESC' takes you out of quote mode. If you wish to 
continue with more characters following the Scroll Down 
you'll have to do an OFF/RVS, another quote and DELete the 
quote. This is comparable to the cursor control characters 
but not quite so automatic. 

Although you could use the CHR$( values, the ESC/RVS 
method saves bytes and will eventually become much more 
legible. After all, when was the last time you used a 
CHR$(17) to do a cursor right. (or is it a cursor up?... or 
is 17 delete?... no, I think it's a cursor down... I'd better 
check... hmm) 
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There is still another way to activate these functions 
without using PRINT. This is directly from the keyboard. 
But you say "There is no key on the keyboard assigned to do a 
scroll down or set top...". By pressing certain key 
combinations simultaneously, the keyboard value that is 
passed to the operating system will be the CHR$ value that 
activates the function. This information was published by 
Roy Busdiecker in Compute #7, but Roy found many combinations 
that do the same functions. I've listed only the easiest 
ones to remember. 

Control Function _ Key Combination _ 


TEXT 

BOTHShiftS 

/ 

H 




GRAPHICS 







SCROLL DOWN 

LeftShift 

/ 

TAB 

/ 

I 


SCROLL UP 







SET BOTTOM 

Shift 

/ 

Z 

/ 

A / L 


SET TOP 



Z 

/ 

A / L 


INSERT LINE 

Shift 

/ 

RVS 

/ 

A / L 


DELETE LINE 



RVS 

/ 

A / L 


ERASE BEGIN 

Shift 

/ 

TAB 

/ 

leftarrow / 

DEL 

ERASE END 


/ 

TAB 

/ 

leftarrow / 

DEL 

SET/CLR TAB 

Shift 

/ 

TAB 




TAB 



TAB 





The two empty spaces beside TEXT and SCROLL UP are empty 
because they haven't been found yet. If anyone does, please 
let me know. 


The window can also be POKEd to size. The pokes are: 


Screen TOP: 224,T 
BOTTOM: 225,B 

LEFT: 226,L 

RIGHT: 213,R 


where T=0 to 24 
where B=T to 24 
where L=0 to 79 
where R=L to 79 


I'm not sure what weird or interesting effects you can 
get by making TOP less than BOTTOM or LEFT greater than 
RIGHT. This is handled by the 6845 Screen Controller chip. 
The 6845 does all kinds of neat things which we'll cover in a 
future Vol 3 Transactor. 
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More On 80 Columns 


A halt-scroll key has been added to the 8032 . LIST a 
fairly long program and touch the ":" key. To restart 
scrolling, hit the left arrow key which is also the 
slow-scroll key. 

ESCape quite simply escapes you from quote mode or 
insert mode (where cursor keys get displayed as reverse 
characters). 

SYS 54386 is the command to Call the monitor rather than 
break to the monitor which can be done with SYS4. 

POKE 144,88 disables the STOP and the clock. 
POKE 144,85 enables. 

To clear the window hit or PRINT 2 HOMEs consecutively. 
If a "window reset disable" were desired, it would be easy 
enough to insert a pre-interrupt routine to zeroize the home 
count ($E8) so that the 8032 would never see 2 HOMEs in a 
row. The code would be LDA #0, STA $E8, JMP (the IRQ 

vector). Enter it fast with these steps: 

1. Enter m.l.m. with SYS4 

2. Type: m 027a 027a 

3. .: 027a a9 00 85 e8 4c 55 e4 00 

4. Now take the cursor up and change the 
IRQ vector to 027a <RETURN> 

5. Exit the mlm with x <RETURN> 

6. Set a window with the key combination (above) 

7. Just try and clear it! 

Best use for this would be for bulletproof INPUT. The 
program would set the window to one screen line with 
rightwindow - leftwindow = max input length. Then OPEN 1,0 
(input file from the keyboard) and use INPUT#1,A$. This way, 
no question mark is printed and hitting RETURN with no data 
input doesn't break out of the program. The window could not 
be cleared by the user either thanks to the pre-interrupt. 
Wella!... failsafe keyboard input! 
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Basic Commands and Statements (Continued) 

COMMAND/ COMMAND/ 

STATEMENT EXAMPLE PURPOSE STATEMENT EXAMPLE PURPOSE 
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Table: Memory expansion connector. PET pin numbers. 

Line labels and line descriptions. 
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Note that the 40 top edge "B " connections (or pins) are ground 
returns for the corresponding 40 lower edge "A" connections. 



















ADDRESSING MODES 


ACCUMULATOR ADDRESSING - Thin form of addressing is represented 
with a one byte instruction, implying an operation on the 
r-.cc’iraulator. 

IMMEDIATE ADDRESSING - In immediate addressing, the operand is 
contained in the second byte of the instruction, with no 
further memory addressing required. 

ABSOLUTE ADDRESSING - In absolute addressing, the second byte 
of the instruction specifics the eight low order bits of 
the effective address while the third byte specifies the 
eight high order bits. Thus, the absolute addressing mode 
allows access to the entire 65K bytes of addressable, memory. 

ZERO PAGE ADDRESSING - The aero page instructions allow for 
shorter code and execution times by only fetching the 
second byte of the instruction and assuming a aero high 
address byte. Careful use of the aero page can result 
in significant increase in code efficiency. 

INDEXED ZERO FACE ADDRESSING - (X, Y indexing) - This form 

of addressing is used in conjunction with the index 
register and is referred to as "Zero Page, X" or "Zero 
Page, V". The effective address is calculated by adding 
the second byte to the contents of the index register. 

Since this is a form of "Zero Page" addressing, the content 
of the second byte references a location in page aero. 
Additionally due to the "Zero Page" addressing nature of 
this mode, no carry is added to the high order 8 bits of 
memory and ci ossir;. of page boundaries does not occur. 

INDEXED ABSOLUTE ADDRESSING - (X, Y indexing) - This form 
of addressing is used in conjunction with X and Y index 
register and vs referred to as "Absolute, X", and 
"Absolute, Y". The effective address is formed by adding 
the contents of X or Y to the address contained in the 
second and third bytes on the instruction. This mode 
allows the index register to contain the index or count 
value and the instruction to contain the base address. 

This type of indexing allows any location referencing 
and the index to modify multiple fields resulting in 
reduced coding and execution time. 

IMPLIED A.DDRE S SING - In the implied addressing mode, the 

address containing the operand is implicitly stated in 
the operation code of the instruction. 

RELATIVE ADDRESSING - Relative addressing is used only with 
branch instructions and establishes a destination for 
trie conditional branch. 

Tbe second byte of the instruction becomes the operand 
which is an "Offset" added to the contents of the lower 
eight bits of the program counter when the counter is 
set at the next instruction. The range of the offset 
is -128 to +127 bytes from the next instruction. 

INDEXED INDIRECT ADDRESSING - In indexed indirect addressing 
(referred to as (Indirect ,X)) , the second byce of the 
instruction is added to the contents of the X index 
register, discarding the carry. The result of the 
addition points to a memory location on page zero whose 
contents is the low order eight bits of the effective 
address. The next memory location in page zero contains 
the high order eight bits of the effective address. 

Both memory locations specifying the high and low order 
bytes of the effective address must be in page zero. 

INDIRECT INDEXED ADDRESSING - In indirect indexed addressing 
(referred to as (Indirect),Y), the second byte of the 
instruction points to a memory location in page- zero. 

The contents of this memory location is added to the 
contents of the Y index register, the result being the 
low order eight bits of the effective address. The 
carry from this addition is added to tbe concents of 
the next page zero memory location, the result being 
the high order right bits of the effective address. 

ABSOLUTE INDIRECT - The second byte of the instruction contains 
the low order eight bits of a memory location. The high 
order eight bits of that memory location is contained in 
the third byte of the instruction. The contents of the 
fully specified memory location is the low order byte of 
the effective address which is loaded into the sixteen 
bits of the program counter. 
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MCS6501-MCS6505 MICROPROCESSOR INSTRUCTION SET - ALPHABETIC SEQUENCE ■ INSTRUCTION ADDRESSING MODES AND RELATED EXECUTION TIMES (in clock cycles) 
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Table: Code assignments for "Command Mode" of operation. 

(SENT AND RECEIVED WITH ATN TRUE) 



ADDRESSED UNIVERSAL LISTEN TALK 

COMMAND COMMAND ADDRESS ADDRESS 


iROUH GROUP GROUP GRQUF 

ACGi jUCG! (LAG) (TAG) 


v -I- A -r- 

PRIMARY COMMAND GROUP (PCG) SECONDARY 

NOTES O' MSG INTERFACE MESSAGE COMMAND 

( 2 ) b, D101 b. - D107 GROUP 

(3) REQUIRES SECONDARY COMMAND <SCG) 


© DENSE SUBSET (COLUMN 2 THROUGH 5). ALL CHARACTERS USED IN BOTH COMMAND & DATA MODES. 








